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USER'S  Own  page  no 
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275690 


YUL  system  for  BLK2I  REVISION  0 OF  PROGRAM  REtrED44 


INS  vErb  and  noun  information 

P0038  verb  definitions 

R0039  regular  VERBS 


R0040 

01 

display  octal  COMP  1 (RI) 

ROOAl 

02 

DISPLAY  octal  COMP  2 (Rl) 

ROOA2 

03 

display  octal  comp  3 (RU 

R00A3 

OA 

DISPLAY  octal  COMP  i,2  (Ri,R2) 

ROO<(4 

05 

display  octal  COmP  lt2*3  (Rl.R2*R3) 

R00A5 

06 

DECIMAL  display 

R0046 

07 

DP  DECIMAL  DISPLAY  (Rl*RZ) 

R00A7 

10 

SPARE 

ROOA8 

11 

MONITOR  OCT  COMP  1 (Rl) 

ROOA9 

12 

monitor  OCT  COMP  2 (Rl) 

R0050 

13 

MONITOR  OCT  COMP  3 (Rl) 

ROOjl 

14 

monitor  OCT  COMP  1,2  (Rl) 

R0052 

15 

monitor  OCT  COMP  1,2,3  (R1,R2,R3) 

R0053 

16 

MONITOR  DECIMAL 

R005A 

17 

MONITOR  DP  DECIMAL  (R1*R2) 

R0055 

20 

spare 

R0O56 

21 

LOAD  COMP  1 (Rl) 

ROO57 

22 

LOAD  COMP  2 (R2) 

R0058 

23 

LOAD  COMP  3 (R3) 

R0059 

24 

LOAD  COMP  1.2  (R1.R2) 

ROOfeO 

25 

LOAD  COMP  1,2.3  (R1.R2.R3) 

R0061 

26 

SPARE 

R0062 

27 

FIXED  memory  Display 

R0063 

30 

REQUEST  EXECUTIVE 

R0064 

31 

REQUEST  waitlist 

R0065 

32 

C(R2)  INTO  R3.  C(R1)  INTO  R2 

R0066 

33 

PROCEED  WITHOUT  DATA 

R0067 

34 

tErminaje  Current  tEst  or  load  reQuEst 

R0068 

35 

TEST  lights 

R0069 

3$ 

fresh  start 

r0070 

37 

change  major  Mo(5E 

R0071 

E^n  Of  regular  verbs 

NASA  202U00 
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yul  System  for  blK2!  revision  o of  program  rejredaa  by  nasa  2021100 


JUL  9,  1965  (MAIN)  PAGE  3 


INS  vErb  and  noun  information 


USER'S  Own  page  no.  3 


P0105 

normal  nouns 

ROIO7 

.00 

NOT  IN  USE 

R0108 

01 

specify  machine  address  (FRACTIONAL) 

R0109 

02 

SPECIFY  MACHINE  ADDRESS  (WHOLE) 

ROllO 

03 

SPECIFY  MACHINE  ADDRESS  (DEGREES) 

ROlll 

09 

SPECIFY  MACHINE  ADDRESS  (HOuRS) 

R0112 

05 

SPECIFY  machine  ADDRESS  (SECONDS) 

RoU3 

06 

SPECIFY  MACHINE  ADDRESS  (GYRO  DEGREES) 

R0114 

07 

SPECIFY  MACHINE  ADDRESS  (Y  OPT  DEGREES) 

R0116 

10 

Channel  to  be  specified 

R0117 

11 

SPARE 

R0118 

12 

SPARE 

ROII9 

13 

SPARE 

R0120 

19 

SPARE 

R0121 

15 

INCREMENT  MACHINE  ADDRESS 

R0122 

16 

TIME  SECONDS 

R0123 

17 

time  hours 

R0124 

20 

iCDU 

R0I25 

21 

PIPA5 

R0126 

22 

NEW  ANGlES  I 

ROI27 

23 

DELTA  ANGLES  I 

R0128 

29 

deltA  time  (seconds) 

R0129 

25 

checklist 

Rol3o 

26 

prio/delay,  adres,  bbcon 

R0131 

27 

SElF  test  on/off  switch 

R0132 

30 

STAR  NUMBERS 

R0133 

31 

FAILREG 

R0134 

32 

DECiSiON  TjME  (MiDCOURSE) 

R0l36 

33 

EPHEMERIS  time  (MIDCOURSE) 

R0138 

39 

measured  quantity  (mIDCOUrSE) 

ROI39 

35 

ROLL.  PITCH.  YAW 

R0140 

36 

LANDMARK  DAtA  1 

R0141 

37 

landmark  data  2 

R0l92 

90 

SPARE 

ROUS 

91 

SPARE 

roua 

92 

SPARE 

R01A5 

93 

SPARE 

R01A6 

99 

SPARE 

ROU7 

95 

SPARE 

R01A8 

96 

SPARE 

R0U9 

97 

SPARE 

ROI5O 

50 

SPARE 

R0151 

51 

SPARE 

R0152 

52 

GYRO  Bias  drift 

ROI54 

53 

GYRO  INPUT  Axis  ACCELERATION  DRIFT 

R0156 

59 

GYRO  SPIN  AXIS  ACCELERA|IoN  DRlF-f 

R0158 

ENd 

Op  normal  nouns 

SCALE  and  decimal  PqiNT 
(•xxxxx) 

(XXXXX,) 

(XXX.XXOEGREES) 

(XXX.XxHOuRS) 

(XXX.XXSECONDS) 

(XX.XXXDEGREES) 

(XX.XXXDEGREES) 


(OCTAL  ONLY) 

(XXX.XXSECONDS) 

(XXX.XXHOuRS) 

(XXX.XXDEGREES) 

(XXXXX. PULSES) 

(XXX.XXDEGREES) 

(XXX.XXDEGREES) 

(XXX.XXSECONDS) 

(XXXXX.) 

(OCTAL  ONLY) 

(XXXXX.) 

(XXXXX.) 

(OCjAL  ONLY) 

(XXX.XXHOURS  (internal  UNiTS  “ WEEKS)) 
(XXX.XXHOURS  (INTERNAL  UNITS  » WEEKS)) 
(XXXX.XkIlOmETERS) 

(XXX.XXDEGREES) 

(OCtAL  ONLY) 

(OCTAL  ONLY) 


(,BBXXXXXMlLLlRAO/SEC) 
(.BBXXXXX(MILLIRAD/SEC)/(CM/SEC  SEC) ) 
(.BBXXXXX(M1CLIrAD/sEC)/(CM/sEC  sEC) ) 


275690 


INS 

R0159 

R0l6l 

R0163 

R0165 

R0167 

R0169 

R0l7l 

R0173 

ROUS 

Ro177 

R01781 

ROI79 

R0181 

R0182 

R0184 

R0186 

R0188 

Rgl^o 

R0192 

R0194 

r0196 


YU|_  system  for  BlK2!  REViSiqN  ° OF  PROGRAM  rETrED44  bY  NASa  202H00 


jUl  9«  1965  (main)  PAGE  4 


vErb  and  noun  information 


USER'S  Own  page  no.  4 


Mixed  nouns 

55  OCDU 

56  UNCALLED  MARK  DAtA  (OCDu  6 TIME  (SEC0N(3S)  ) 

57  NEW  angles  OCDU 

60  IMU  MODE  STATUS  (IN3»  WASKSET.  OLDERR) 

61  TARGET  AZIMUTH  AND  ElEVATiON 

62  ICDUZ  AND  TIME 

63  OCDuX  and  time 

64  OCDUY  and  TIME 

65  SAMPLED  TIME  (HOURS  AND  SECONDS) 

(FETCHED  IN  INTERRUPT) 

66  SYSTEM  TEST  RESULTS 

67  delta  GvRO  angles 

70  PIPA  BIAS 

71  PIPA  SCALE  FACTOR  ERROR 

72  DELtA  position 

73  DELTA  VELOCITY 

74  MEASUREMENT  DATA  (MIDCOURSE) 

75  measurement  DEVIATIONS  (MjDCOURSE) 

76  POSITION  VECTOR 

77  VELOCITY  VECTOR 


scale  and  decimal  point 
(XXX.XXDEG.  XX.XXXDEG) 

(XXX.XXDEG*  XX.XXXDEG.  XXX.XXSEC) 

(XXX.XXDEg*  XX.XXXDEG) 

(OCTAL  ONLY) 

(XXX.XXDEG.  XX.XXXDEG) 

(XXX.XXDEG.  XXX.XXSEC) 

(XXX.XXDEG.  XXX.XXSEC) 

(XX.XXXDEG.  XXX.XXSEC) 

(XXX.XXHOURS,  XXX.XXSEC) 

(XXXXX,.  .XXXXX,  XXXXX.) 

(XX.XXX’^EQ  for  EACh) 

(X.XXXXCM/SEC  SEC  FOR  EACH) 

(XXXXX. parts/million  for  EACH) 

(XXXX.XXILOMEtErs  for  EACH) 

(XXXX.XMETERS/SEC  for  each) 

(XXX.XXHOURS  (INTERNAL  UNITS»WEEKS) , XXXX.XKILOMETERS,  XXXXX. 
(XXXX.XkIlO^^ETERS.  XXXX.XMETERS/SeC.  XXXX.XkIlOMETERS) 
(XXXX.XKILOMETERS  FOR  EACH) 

(XXXX.XMETErS/SEC  for  EACH) 


275690  YUL  system  pOR  bL^ej  ReVISION  o Op  PROQRaM  ReTRed4'»  BY  NaSa 

erasable  assignments 


0001 

0000 

A 

equals 

0 

0002 

0001 

L 

EQUALS 

1 

0003 

0002 

(3 

EQUALS 

2 

0004 

0003 

EBANK 

equals 

3 

0005 

0004 

FBANk 

EQUALS 

4 

0006 

0005 

2 

EQUALS 

5 

0007 

A0008 

0006 

BBANK 

EQijALs 

6 

0009 

0010 

aruPt 

EQuALs 

10 

0010 

0011 

LRUPT 

EQUALS 

u 

0011 

0012 

qrupt 

EQUALS 

12 

0012 

0015 

ZRuPT 

EQUALS 

15 

0013 

0016 

BANKRUPT 

EQUALS 

16 

oou 

0017 

BRUPT 

EQUALS 

17 

0015 

0020 

CYR 

EQUALS 

20 

0016 

0021 

5R 

EQUALS 

21 

0017 

O0Z2 

CYL 

EQyALs 

22 

0018 

0023 

EDOP 

EQUALS 

23 

0019 

0024 

TImE2 

equals 

24 

0020 

0025 

TIMEl 

EQUALS 

25 

0021 

0026 

times 

equals 

26 

0022 

0027 

TIME4 

EQUALS 

27 

0023 

0030 

TIMES 

EQUALS 

30 

0024 

0031 

TIME6 

EQuALs 

31 

0025 

0032 

CDUX 

EQUALS 

32 

002j 

0033 

CDUY 

EQUALS 

33 

0027 

0034 

CDuZ 

EQuALs 

34 

0028 

0035 

OPTY 

EQUALS 

35 

0029 

0036 

OPTX 

EQUALS 

36 

0030 

0037 

PIPAX 

EQUALS 

37 

0031 

0040 

PI  pay 

equals 

40 

0032 

0041 

PIPAZ 

EQUALS 

41 

0033 

0042 

BMAGX 

EQUALS 

42 

0034 

0043 

BMAGY 

EQUALS 

43 

0035 

0044 

BMAGZ 

EQijALs 

44 

0036 

0045 

iNLiNK 

EQUALS 

45 

OO37 

0046 

0047 

RNRAD 

EQUALS 

46 

0038 

GYrOCTr 

Equals 

47 

0039 

0050 

CDUXcMd 

equals 

50 

OO4O 

OO5I 

CDUYCMD 

EQUALS 

5l 

0041 

0052 

CDljZCMD 

EQuALs 

52 

0042 

0053 

OPTYCMD 

equals 

53 

OO43 

OO54 

OPTXCMD 

EQUALS 

54 

0044 

0055 

EMsD 

equals 

55 

0045 

0056 

LeMONM 

equals 

56 

JUL  9t  1965  (MAIN)  PA^E  5 


USER'S  OWN  PAGE  NO.  1 


L and  Q ARE  BOTH  CHANNELS  AND  REGISTERS. 


ADJACENT  TO  FBANK  AND  BBANK  FOR  DXCH  Z 
(OtCB)  And  dxch  fbank  (DjCF), 

REGISTER  7 IS  A ZERO-SOURCEt  USED  BY  ZL. 
INtERRuPt  storage. 


(13  AND  14  ARE  SPARES.) 
USUALLY  HOLDS  FBANK  OR  BBANK. 

resume  address  as  well. 


EDITS  interpretive  OPERATION  CODE  PAiRS 


275690 

0046 

0047 

00472 

00474 

0048 

0049 

0050 

0051 

0052 

0053 

0054 


YUL  system  for  BLK2j  revision  0 OF  PROGRAM  RETRED44  BY  NASA  2021100 


JUL  9*  1965  (MAIN)  PAGE  6 


erasable  assignments 

0057 

OUTLINK 

EQUALS 

57 

USER'S  OWN  PAGE  NO,  2 

0060 

ALTM 

EQUALS 

60 

0067 

SETLOC 

67 

decoded  register  for  night-wAtChman  AlM. 

0067  0067 

NEWjOB 

ERASE 

0042 

lvsquare 

equals 

340 

square  of  vector  input  to  AByAL  AND  UNIT 

0044 

LV 

EQUALS 

360 

length  of  vector  input  TO  UNIT, 

0046 

Xl 

EQUALS 

380 

interpretive  special  registers  relative 

0047 

X2 

EQUALS 

390 

TO  THE  WORK  Area, 

0050 

Sl 

equals 

40d 

0051 

S2 

EQUALS 

410 

0052 

opret 

EQUALS 

420 

275690  VUL  SYSTEM  FOR  BLK2i  REVISION  0 OF  PROGRAM  RETRED44  By  NAsA  2021100 
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erasable  ASSjgNMeNtS 


USER'S  Own  PAgE  NO.  3 


P0055  general  erasable  AssIGNMENjs. 

R0056  THe  pOLLOwINg  AR£  EXECUTIVE  TeMPOrARIeS  WHICH  MAy  Be  USeD  BeTweeN  CCS  NewJOB  INQUIRIES. 


0058 

0100 

SETLOC 

100 

t 

OOSg 

0100 

0100 

INTBIs* 

erase 

reflects  I5TH  bit  of  indexable  addresses 

0060 

0100 

DsEXIt 

B 

INtB15+ 

REtURN  for  DsPIN 

Return  f°R  scale  factor  routine  SeLect 

0061 

0100 

eXITeM 

e 

INTB15+ 

0062 

0100 

BLANKRET 

= 

INTB15+ 

RETURN  for  2BLANK 

0063 

OlOl 

0101 

INTBIT15 

erase 

similar  to  ABOVp. 

0064 

0101 

WRDRET 

INT0IT15 

RETURN  for  SBlANK 

0065 

0101 

WDRET 

8 

INTBIT15 

return  for  dspwd 

0066 

0101 

DECRET 

8 

1NTBIT15 

RETURN  FOR  PUTCOM(DEC  LOAD) 

0067 

0101 

21/22REG 

8 

INTBIT15 

TEMP  FOR  CHArIN 

0068 

0102 

0102 

AODRWO 

ERASE 

12  bit  interpretive  operand  sub-address. 

0069 

0103 

0103 

POLISH 

ERA5E 

HOLDS  CADR  made  FROM  POLIsH  ADDREss. 

0070 

0103 

UPDATRET 

a 

POLISH 

RETURN  for  UPDATNN,  UPDATVB 

OO7I 

0103 

CHAR 

a 

POLISH 

TEMP  FOR  CHARIN 

0072 

0103 

ERCNT 

3 

POLISH 

COUNTER  for  Error  LIGHT  RESET 

0073 

0103 

decount 

a 

POLISH 

counter  for  SCALING  ANp  DISPLAY  (deO 

0074 

0104 

0104 

FIXLOC 

Erase 

WORK  Area  address. 

OO75 

OIO5 

0105 

OVFIND 

erase 

SET  N0N-2ER0  ON  OVERFLOW. 

0076 

0106 

0113 

vbuf 

ERASE 

♦5 

temporary  STqRAGE  used  FqR  VECTqRS. 

0077 

0106 

SGNON 

8 

VBUF 

TEMP  FOR  ♦»-  ON 

0078 

0106 

NOUNyEM 

8 

VBUF 

counter  for  MIXnOUN  FEyCH 

0079 

0106 

DISTeM 

a 

VBUf 

counter  fOR  Octal  display  veRbs 

0080 

0106 

dectem 

8 

VBUF 

COUNTER  FOR  FETCH  (DEC  DlSPLAy  VERBS) 

0081 

0107 

SqNOff 

8 

VbUf  +1 

Temp  for  ♦*-  on 

0082 

0107 

NVTEMP 

3 

VBUF  ♦! 

TEMP  for  NVSUB 

0083 

0107 

SFTEMpl 

a 

VBUF  ♦! 

storAge  fqr  sf  Const  hi  pArT(=sftemp2-1) 

00g4 

0110 

CODE 

a 

VBUF  +2 

FOR  DSPIN 

0085 

Olio 

SFTEMp2 

8 

VBUF  *2 

storage  for  sf  const  LO  PArT(=SFTEMp1.1) 

00g6 

0111 

MIXTEMP 

8 

VBUF  +3 

FOR  MIXNOUN  DATA 

0087 

ROOgs 

OUl  signret 

ALSO  MIXTEMP+1  a VBUF+4,  MIXTEMP+2  » VBUF+S. 

8 

VBUF  +3 

return  FOr  +»-  ON 

0089 

0114 

0116 

BUF 

ERASE 

♦ 2 

TEMPORARY  SCAlAR  STORAGE. 

0090 

OU7 

0120 

BUF2 

ERASE 

+ 1 

0091 

0114 

INDEXLoC 

Equals 

BUF 

Contains  address  of  Specified  inoex. 

0092 

0114 

SWWORd 

eouals 

buf 

addRess  of  Switch  word. 

275690  yUL  SYSTEM  FOR  BLKZJ  REVISION 
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0093 

0095 

0121 

0096 

0122 

0097 

0098 

0099 

0100 

0123 

0101 

0102 

0103 

0104 

0105 

0124 

0106 

OIO7 

01071 

OlOR 

0106 

0125 

01095 

0110 

0111 

0126 

0112 

0113 

OII4 

0127 

0115 

0116 

0130 

OII7 

OUR 

0119 

0120 

0131 

0121 

0122 

0132 

0123 

0133 

0124 

0134 

A0125 

0126 

0135 

A0127 

0128 

0136 

A0129 

0130 

0137 

0 OF  PROGRAM  RETREDAA  By  NAsA  2021100 


0115 

SWBiT 

equals 

BUF  ♦! 

0121 

mptemp 

ERASE 

0122 

DOtINC 

erase 

0122 

DVSIGN 

EQUALS 

DOTINC 

0122 

ESCAPE 

EQUALS 

DOTINC 

0122 

ENTRET 

s 

DOTINC 

0123 

DOTRET 

erase 

0123 

DVNORMCt 

EQUALS 

DOTRET 

0123 

ESCAPE2 

EQUALS 

DOTRET 

0123 

WDCNT 

s 

DOTRET 

0123 

INREL 

s 

DOTRET 

0124 

MATING 

erase 

0124 

MAXDVSW 

EQUALS 

mating 

0124 

POLYCNT 

EQUALS 

MATING 

0l24 

DSPMMtEM 

s 

MAtINC 

0124 

MIXBR 

B 

Mating 

0125 

TEMl 

ErAjE 

0125 

POLYReT 

8 

TgMl 

0125 

DSREL 

8 

TEMl 

0126 

TEM2 

erase 

0126 

DSMAG 

8 

TEM2 

0126 

IDADDTEM 

8 

TEM2 

0127 

TEM3 

erase 

0127 

COuNt 

8 

TEM3 

0130 

TeM4 

erase 

0130 

LSTPTR 

s 

TEM4 

0130 

RELrET 

8 

TEM4 

0130 

FReeReT 

= 

TeM4 

0131 

TEM5 

Erase 

0131 

NOUNAdd 

8 

TgM5 

0132 

NNADTEM 

Erase 

0133 

NNTYPTeM 

eRASc 

0134 

IDADItEM 

Erase 

OI35 

IDAD2TEM 

ERASE 

0136 

IDAD3TEM 

erase 

0137 

rUTMXTEM 

Erase 

JUL  9,  1969  (MAIN)  PAGE  8 


u5ER»s  Own  page  no.  a 

Switch  bit  within  switch  word, 
temporary  used  in  multiply  and  shift, 
component  increment  for  Dot  subroutine. 

DETERMINES  SIGN  OF  DDV  RESULT. 

USED  IN  ARCSIN/ARCCOS. 

EXIT  FROM  ENTER 

return  FROM  DOT  SUBROUTINE. 

DIVIDEND  normalization  COuNT  IN  DDV. 
ALTERNATE  ARCSIN/ARCCOS  SWITCH. 

Char  counter  for  dspwd 

INPUT  BUFFER  SELECTOR  ( X.Y.Z.  REG  ) 

vector  increment  in  mxv  and  vxm. 

♦0  IF  DP  quotient  is  NEAR  ONE  - ELSE  -1. 
polynomial  loop  counter 
DsPCOuNt  save  for  DsPMM 
indicator  fOR  mixed  or  normal  noun 

EXEC  TEMP 

rel  address  for  DSPIN 

EXEC  TEMP 

magnitude  store  for  DSPIN 
MIXNOUN  indirect  ADDRESS  STORAGE 

EXEC  TEMP 
FOR  DSPIN 

EXEC  temp 

list  pointer  for  GRABUSY 
return  for  reldsp 
Return  for  freedsp 

exec  temp 

TeMP  storage  for  noun  AddReSS 

TEMP  FOR  noun  address  TABLE  ENTrY 

TeMP  for  noun  type  table  entry 

temp  for  INDIR  ADRESS  table  entry (NlxNN) 

must  = IDAD2TEM_1.  » IDAD3TEM.2. 

temp  for  INDIR  ADRESS  TABLE  ENTRY(MIXNN) 

Must  * I0AD1tEM+1*  o IDAD3tEM”1. 

TEMP  FOR  iNDiR  ADRESS  TABLE  ENTRYfMiXNN, 
MUST  » IDADITEM+2*  » IDAD2TEM+I. 

TEMp  FOR  SF  roUT  TABLE  ENTrYIMIXNN  ONLY) 


R0131 


storage  used  By  the  executive 
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erasable  assignments 

USER'S  OwN  PAGE  NO.  5 

0133 

0140 

0146 

MPAC 

erase 

*6 

MuLTt-PURPOSE  ACCUMULATOR. 

0134 

OUT 

OI4T 

MODE 

erase 

♦1  for  TP»  *0  FOR  DP#  OR  -1  FOR  VECtOr, 

0135 

0150 

0150 

LOC 

Erase 

LOCATION  associated  WITH  JOB, 

0136 

0151 

0151 

BANKSeT 

ERASe 

USUALLY  CONTAINS  BBANK  SeTTING. 

0137 

0152 

0152 

puShloc 

erase 

WORD  OF  PACKED  INTERPRETIVE  PARAMETERS 

0138 

0153 

0153 

PRIORITY 

ERASE 

PRIORITY  OF  Present  job  and  work  area. 

0139 

0154 

0263 

erase 

♦ 710 

SEvEN  sets  of  12  REGISTERS  EACH. 

0140 

0264 

0264 

VAClUSE 

erase 

0l4l 

0265 

0337 

VACl 

erase 

♦ 42D 

0142 

0340 

0340 

VAC2USE 

ERASE 

0143 

0341 

0413 

VAC2 

erase 

♦ 420 

014A 

0414 

0414 

VAC3USE 

erase 

0145 

0415 

0467 

VAC3 

ERASE 

♦ 420 

0146 

0470 

0470 

VAC4USE 

erase 

0147 

0471 

0543 

VAC4 

ERASE 

♦ 420 

0148 

0544 

0544 

VAC5USE 

ERASE 

0149 

0545 

0617 

VACS 

erase 

♦ 42o 

ROlSO 

INTERPRETIVE  SWITCH  RESERVATIONS# 

0151 

0620 

0623 

STATE 

ERASE 

♦ 3 

60  switches  Presently, 

R0152 

the  following  set  comprises  the  interrupt  temporary  storage 

PonL. 

0154 

0624 

0624 

waitexit 

erase 

0155 

0624 

keytempi 

■ 

WAITEXIT 

TEMP  FOR  KEYRuPT,  UPRUPT 

0156 

0624 

DSRUPTEM 

a 

WAITEXIT 

TEMP  FOR  DSPOUT 

0157 

0625 

0625 

waitbank 

ERASE 

0158 

0626 

0626 

exectemi 

ERASE 

0159 

0627 

O6Z7 

EXECTEM2 

ERASE 

0160 

0630 

0630 

WAITADr 

Erase 

0161 

0631 

0631 

WAITTeMP 

eRase 

0162 

0632 

0632 

newprio 

ERA5E 

EXECUTIVE  reservations  (TEMP  ONLY), 

0163 

0633 

0634 

NeWLOc 

erase 

♦ 1 

0164 

0635 

0635 

LOCCTR 

ERASE 

ROUS 

waitlist  REpEAT  FLAG: 

0166 

0636 

0636 

RUPTAGN 

ERASE 

0167 

0636 

KEYTEmp2 

= 

RUpTAGN 

TEMp  FoR  KEYRUpT.  UpRUpT 

275690  YUL  SYSTEM  FOR  BLK2;  REylSlON  0 OF  PROGRAM  RETRED44  By  NaSa  2021100 


JUL  9f  1965  (MaIN)  Pa^E  10 


erasable  assignments 

P0168  the  following  registers  Are  reserved  for  pinball 


USER'S  OWN  Page  no,  6 


R0l69  reserved  FOR  PINBALL  EXECUTIVE  ACjlON 


0170 

0637 

0637 

DSPCOuNT 

erase 

OI7I 

0690 

0690 

DECBRNCH 

erase 

0172 

0691 

0691 

verbreg 

erase 

0173 

0692 

0692 

NOUNREG 

erase 

OI7A 

0693 

0693 

XREG 

ERASE 

0175 

0699 

0699 

YREG 

ERASE 

0176 

0695 

0695 

ZREG 

ERASE 

OI77 

0696 

0696 

XREGLP 

erase 

0178 

0697 

0697 

yreglp 

erase 

0179 

0650 

0650 

zreglp 

erase 

0180 

065i 

065l 

MOOREg 

ERASE 

0181 

0652 

0652 

DSpLoCK 

ERASE 

OlaZ 

0653 

0653 

reqret 

ERASE 

0183 

0659 

0659 

LOADSfAj 

erase 

0189 

0655 

0655 

CLPASS 

erase 

0185 

0656 

0656 

nout 

ERASE 

0186 

0657 

0657 

NOUNCADr 

Erase 

0187 

0660 

0660 

MONSAVe 

erase 

0188 

0661 

0661 

MONSAyEl 

ERASE 

0189 

0662 

0675 

DSPTAB 

erase  *11D 

0190 

0676 

0676 

CADRSTOR 

ERASE 

0191 

0677 

0677 

GrABLOCK 

Erase 

0192 

0700 

0700 

NVQTeM 

erase 

A0193 

0199 

0701 

0701 

NVBNkTEM 

erase 

AOI95 

0196 

0702 

0709 

DSpLIST 

Erase  +2 

0197 

0705 

0705 

eXTvbacT 

eRASc 

0198 

0706 

0710 

DSPTEMI 

ERASE  *2 

0199 

0711 

0713 

DSPTEMZ 

erase  +2 

R0200 

END  OF  ERAsABLES  RESERVED  FOR 

PINBALL  executive  ACTION 

R0201 

RESERVED  FOR  PlNgALL  INTERRUPT 

action 

0202 

0719 

0719 

DSpCNT 

Erase 

0203 

A0209 

0715 

0715 

UPLOCK 

ERASe 

R0205 

end  OF  ERASABLES  RESERVED  FOR 

Pinball 

interrupt 

ACTION 

Display  position  indicator 

♦DEC*  - DEC,  OCT  INDICATOR 
VERB  CODE 
NOUN  code 

Ri  INPUT  Buffer 
R2  INPUT  Buffer 
R3  INPUT  buffer 

LO  part  of  XREG  (FOR  DEC  CONV  ONLY) 

LO  part  of  YREG  (FOR  DEC  CONV  ONLY) 

LO  part  Of  2REG  (FOR  DEC  CONV  ONLY) 

MODE  CODE 

keyBoArd/subroutine  call  interlock 
return  register  for  load 
status  indicator  for  LOADtST 
PASS  indicator  clear 

ACTIVITY  COUNTER  FOR  DSPTAB 

MACHINE  CADr  FOR  NOUN 

N/V  CODE  EOR  MONITOR.  (»  MONSAVpI-D 

NOuNCADR  for  monitor (MAtBS)  sMONSAvE  +1 

O.IOD,  DISPLAY  PANEL  BUFF.  11D»  C/S  LTS. 

endidle  storage 

internal  interlock  for  display  system 

NVSUB  storage  for  CALLING  AddReSS 
MUST  s NVBNKTEM-1 
NVSUB  storage  for  CALLiNG  BANk 
MUST  * NVQTEM+1 

WAITING  LIST  FOR  DSp  SYST  INTERNAL  USE 

cxTeNded  VeRb  Activity  interlock 
buffer  storage  area  1 (MOSTLY  FOR  TIME) 
buffer  storage  area  Z (MOSTLY  FOR  DEG) 


Counter  fqr  dspout 

BITI  a uplink  INTeRLOcK  (ACTIVATED  BY 
reception  of  a bad  message  in  uplink) 


275690 

P0206 

0207 

0209 

0210 

0211 

0212 

0213 

02U 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

02211 

0222 

02221 

0223 

02231 

0226 

0227 

0228 

0229 

0230 

02301 

R0231 


(MAIN) 


temporary  phony  assignments  to  keep  pinball  From  having  bad  Assemblies 


0716 

0720 

thetad 

ERASE 

+2 

0721 

0721 

FAILREG 

ERASE 

0722 

0723 

tdec 

ERASE 

+ 1 

0724 

0725 

tet 

ERASE 

♦ 1 

0726 

0727 

MEAS(3 

ERASE 

♦ 1 

0730 

0732 

ROLL 

ERAsE 

.2 

0733 

0740 

landmark 

ERASE 

♦5 

O7AI 

0743 

GBIASX 

ERASE 

♦2 

0744 

0746 

ADIAX 

ERAsE 

♦2 

0747 

0751 

adsrax 

erase 

+2 

0752 

0753 

0E50PTX 

ERASE 

♦ 1 

0754 

0755 

SAMPylME 

ERAsE 

♦ 1 

0756 

0763 

OELVX 

ERASE 

+5 

O764 

0764 

PBIASX 

ERASE 

0765 

0765 

PlPAsCFX 

ERAsE 

0766 

0766 

PBiASY 

erase 

O767 

0767 

PIPASCFY 

ERASE 

0770 

0770 

PBIAsZ 

ERASE 

0771 

0771 

PIPASCFZ 

ERASE 

1000 

SETLOC 

1000 

1000 

1005 

DELR 

ERASE 

♦5 

1006 

1013 

DELVEL 

erase 

♦5 

lOU 

1014 

MEASMODE 

ERASE 

i015 

1016 

DELTAq 

Erase 

+ 1 

1017 

1017 

WASKSeT 

erase 

END  OF  PHONY  ASSIGNMENTS 

YUL  SYSTgM  pOR  bLK2I  ReViSjON  0 Op  PROgRaM  ReTRedAA  BY  NaSA  2021100  JUL  9«  1965 

Erasable  assignments  user's  own  page  no. 


Page  u 


(MAIN)  PAGE  12 


p0232  ASSIGNMENTS  FOR  TArUPT  PrOGrAM 


0233 

1020 

lOZO 

dsruptsw 

ERASE 

023A 

1021 

lOZl 

olderr 

ERASE 

0235 

R0236 

10Z2 

end  of  tarupt  assignments 

1022 

WA50PSET 

ERASE 

275690  YUL  SYSTEM  FOR  BLK2»  REVISION  0 OF  PROGRAM  RETRED4^^  BY  NAsA  202X100 

erasabI-e  assignments 


JUL  9,  1965 

USER'S  OWN  Page  no. 


R0237 

assignments  for  downrupt 

0238 

1023 

1023 

dispbuf 

Erase 

0239 

R0240 

IQZA 

END  OF  OOwNRuPT  ASSIGNMENTS 

1024 

TMKeYBUF 

erase 

R02A1 

assignments  for 

self 

CHECK 

R0242 

addresses  to  Be 

used 

FOR  iNDEX 

INSTRUCTION  WiThOUT  EXTRACODES 

02421 

1025 

1025 

NDX*0 

ERASE 

024211 

1026 

1026 

ndx+max 

ERASE 

024212 

1027 

1027 

NDXKEEPl. 

erase 

024213 

1030 

1030 

NDXKEEP2 

ERASE 

024214 

1031 

1031 

NDXKEEP3 

erase 

024215 

1032 

1032 

NDXSELFl 

ERASE 

024216 

1033 

1033 

N0XSELF2 

ERASE 

02422 

1034 

1034 

KEEpl 

ERASE 

024221 

1035 

1035 

KEEP2 

ERASE 

024222 

1036 

1036 

KEEP3 

ERASE 

024223 

1037 

1037 

kEEPA 

erase 

024224 

1040 

1040 

KEEPS 

ERASE 

024225 

1041 

1041 

KEEPS 

erase 

024226 

1042 

1042 

kEEP7 

ERASE 

q2a23 

10A3 

10A3 

selfret 

ERASE 

024231 

1044 

1044 

SFAIl 

ERASE 

024232 

IO45 

IO45 

ERCOUNT 

ERASE 

024233 

1046 

1046 

SCOyNx 

ERASE 

024234 

1047 

1047 

smode 

ERASE 

R0243 

END  OF  SELF  CHECK  ASSIGNMENTS 

E3*1A00 


SeTLOc  xaoo 


R02AA 

02AS 


waitlist  task  LISTS! 


PAGE  i3 


275690  YUL  SYSTEM  FOR  BLK2!  REVISION  0 OF  PROGRAM  RETREDAA  BY  NAsA  202UOO  JUL  9,  i965 


0296 

erasable  assignments 

E3<1900 

E3.1909 

1 STl 

erase 

♦ 9 

USERiS  OwN  PAGE  NO. 
DEI  TA  TS, 

0297 

E3.1905 

E3tl920 

LST2 

ERASE 

*11D 

2CADR  task  addresses 

(MAIN) 

9 


275690 


YUL  system  pOR  BLK2:  ReViSiON  0 Op  PROqRaM  ReTREDAA  BY  NASA  2021100 


jUL  9*  1965 


(majN)  Page  ia 


0001 

INpUT/OUTpUT  channels 

0010 

0002 

0011 

00021 

0013 

0003 

0015 

0004 

0016 

R0005 

end  op  Channel  assignments 

user»s  own  page  no*  1 

OUTO  EQUALS  10 
DSALMOUT  EQUALS  11 
CHAN13  EQUALS  13 
MNKEYIN  EQUALS  15 
NAVKEYIN  EQUALS  16 


275690 

YUL  SYSTeM  pOR 

ID 

Revision 

0-  Op  PROgRaM 

ins 

interrupt  lead 

InS 

OOOl 

9000 

0002 

9000 

0 0009  0 

0003 

9001 

3 9059  1 

0009 

9002 

56  006  1 

0005 

9003 

1 2721  0 

0006 

9009 

52  Oil  0 

0007 

9005 

3 9055  0 

0008 

9006 

56  006  1 

0009 

9007 

1 9330  1 

0010 

9010 

52  Oil  0 

0011 

9011 

3 9056  0 

0012 

9012 

56  006  1 

0013 

9OI3 

1 933O  1 

0019 

9019 

52  Oil  0 

0015 

9015 

3 9057  1 

0016 

9016 

56  006  1 

0017 

9017 

1 9272  0 

00l8 

9oZo 

52  oil  0 

0019 

9021 

3 9060  0 

0020 

9022 

56  006  1 

0021 

9023 

1 3052  1 

0022 

9029 

52  Oil  0 

0023 

9025 

3 9061  1 

0029 

9026 

56  006  1 

0025 

9027 

1 3153  1 

0026 

9030 

52  Oil  0 

0027 

9031 

3 9061  1 

0028 

9032 

56  006  1 

0029 

9033 

1 3175  0 

OO3O 

9039 

52  Oil  0 

0031 

9035 

3 9061  1 

0032 

9036 

56  006  1 

0033 

9037 

1 3205  1 

0039 

9090 

52  Oil  0 

0035 

9091 

3 9062  1 

0036 

9092 

56  006  1 

0037 

9093 

1 9330  1 

003e 

9099 

50  017  1 

0039 


9050 


page  15 


ReTRedAA  by  NASA  2021100 


SETLOC 

0 

0 

0 

INhINT 

CAF 

GOBB 

XCH 

BBANk 

TCF 

GOPROG 

DXCH 

ArUpT 

caf 

T6RPTBB 

XCH 

BBANK 

tcf 

RESUME  +3 

DXCH 

ARUPT 

CAF 

TSRPtBB 

XCH 

BBANk 

TCF 

RESUME  4.3 

DXCH 

ARUPT 

CAF 

T3RPTBB 

XCH 

BBANK 

TCF 

T3RUPT 

DXCH 

ARUPT 

CAF 

T9RPT8B 

XCH 

BBANK 

tcf 

T9RuPT 

DXCH 

ARUPT 

CAF 

KEyRPTBB 

XCH 

BBANk 

TCF 

KEYRUPTI 

DXCH 

ArUpT 

CAP 

KeYRPTBB 

XCH 

BBANK 

TCF 

KEYrUpT2 

DXCH 

ARUPT 

CAF 

uprptbb 

XCH 

BBANk 

TCF 

UPRUPT 

DXCH 

ArUpT 

caf 

DWNRPTbB 

XCH 

BBANK 

tCF 

RESUME  *3 

RESUME 

JUL  9*  1965 
USER'S  Own  page  nO. 

GO 

T6rUPT 

***FIX  LAxER*#" 

T5RUPT 

***FIX  later*** 

T3RUPT 

T9RUPT 

keyrupti 

KEYrUpT2 

UPRUPT 

DOWNrUpT 

*»#FIX  LAjER*#* 

RADAR  RUPT  ****FIX 


(MAIN) 

1 


LATER****** 


SeTlOC  9050 


275690  YUL  SYSTEM  pOR  0LK2J  ReViSiON  0 Op  PROqRAM  ReTRED^A  BY  NASA  2021100 


JUL  9,  1965  (MAiN)  PAGE  16 


InS  interrupt  lead  InS  USER’S  OWN  pAGE  NOt  2 


OOAO 

4050 

50  0l7  1 

resume 

hand  CONTROL  RUPT  ***PIX  LATER*»*» 

OO4I 

4O54 

SETLOC 

4054 

0042 

0043 

4054 

E3 

02003  0 

GOBB 

ebank= 

BBCON 

LSTl 

GOPROG 

restart  uses  E0»  E3 

0044 

0045 

4055 

EO 

04000  0 

T6RPTBB 

EBANKa 

BBCON 

TIMEl 

Resume 

#»»pIX  LATeR*** 

0 0 
0 0 

A056 

EO 

04000  0 

T5RPTBB 

EBANKa 

BBCON 

TIMEl 

Resume 

*»*pix  lateR«9» 

0048 

0049 

4057 

E3 

04003  0 

T3RPTBB 

EBANKa 

BBCON 

LSTl 

T3RUPT 

0050 

0061 

4060 

E2 

02002  1 

T4RPTBB 

EBANKa 

BBCON 

DSRUPTSW 

T4RUPT 

0052 

0053 

4061 

El 

02001  1 

keyrptbb 

EBANKa 

BBCON 

keytempi 

keyrupti 

OO5A 

4061 

UPRPTBB 

a 

keyrptbb 

0055 

0056 

4062 

EO 

04000  0 

DWNRPTBB 

EBANKa 

BBCON 

TIMEl 

RESUME 

4#*pix  later 

0057 


A063 


ENDINTpp  equals 


275690 
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YU|  SYSTeM  pOR  BlKZI  ReViSjON  0 Op  PROqRaM  ReTRE044  BY  NASA  2021100 


LlgT-PROCEssING  INTERPRETER  UjER's  OWN  PAGE  NO.  I 

Roool  section  1 dispatcher 

R0002  Entry  Tq  the  interpreter,  InTpRET  sets  LqC  Tq  the  first  INSTRUCTION!  BAnKSET  To  the  PBAnK  qF  the 

R0004  object  interpretive  program,  and  INTBITIs  to  the  BIT15  contents  of  fbank,  interpretive  programs  may  be  in 
R0006  virtually  all  BANKs  PREsENj  uNI’ER  any  super-bank  setting,  with  the  restriction  tHAt  programs  in  high  banks 

R0008  (Bins  Op  pBANK  « 1)  DO  NOT  REPER  TO  LOWBANKS,  AND  VICE-VERSA,  ThE  INTERPRETER  DOES  NOT  SWITCh  SUPER-BANK, 

ROOlO  nor  does  it  switch  EBANKP.  most  EBANK  switching  IS  DONE  By  THE  EXECUTIVE  PROGRAM, 


0012 

6000 

SETLOC 

6000 

0013 

6000 

0 0006 

1 

iNTPRET 

extend 

Set  LOC  TO  The  word  following  The  tc, 

0014 

6001 

22  I5O 

0 

QXCH 

LOC 

0015 

6002 

3 OOOA 

0 

+ 2 

CA 

fbank 

interpretive  Branches  finish  hErE, 

0016 

6003 

54  151 

0 

TS 

BANKSeT 

0017 

6OO4 

7 7(,30 

1 

MASK 

8IT15 

GET  I5TH  Bit  for  indexable  addresses 

0018 

6OO5 

54  101 

0 

TS 

INTBIT15 

0019 

6006 

6 6425 

1 

Ad 

LOWIO 

THIS  Version  is  used  in  processing 

0020 

6007 

54  100 

1 

TS 

INTB15+ 

indexable  FIxED-BANK  addresses. 

0021 

6010 

1 6023 

1 

TCP 

NpWOPS 

PICK  UP  op  CODE  pair  AND  BEgIN. 

0022 

6011  22  006  1 iNTRSM 

LXCh 

bbank 

resume  SUSPENDED  INTERPRETIVE  JOB 

0023 

6012  1 6017  0 

TCF 

DANZIG  +3 

(ACTUALLY  PART  OF  THE  EXECUTIVE), 

275690  yUL  SYSTEM  FOR  BLK2:  REVISION  0 OF  PROGRAM  REJRED44  By  NAs*  2021100 


list-processing  interpreter 

P0024  AT  The  eNd  of  most  instructions,  control  iS  Given  to  danziq  to 


0026 

6013 

54  147 

1 

NEwMODE 

ts 

MODE 

0027 

6014 

3 0151 

1 

DANZIq 

CA 

BANKSeT 

0028 

6015 

54  004 

1 

TS 

fbank 

0029 

6016 

10  023 

1 

CCS 

EDOP 

0030 

A0031 

6017 

1 6032 

1 

TCF 

OPJUMP 

0032 

6020 

10  067 

1 

CCS 

NEWJOB 

0033 

6021 

1 4160 

0 

TCF 

Change 

0034 

6022 

24  150 

0 

INCr 

LOC 

0035 

6023 

50  150 

0 

NEWOPS 

INDEX 

LOC 

0036 

6024 

3 0000 

1 

CA 

0 

0037 

6025 

10  000 

0 

CCS 

a 

0038 

6026 

1 6341 

0 

TCF 

DOSTORE 

0039 

S0?7 

o 

o 

-4 

-4 

0 

L0W7 

OCT 

177 

0040 

6030 

54  023 

1 

TS 

EDOP 

0041 

6031 

7 6027 

0 

MASK 

L0W7 

0042 

6032 

54  020 

1 

OP JUMP 

TS 

CYR 

0043 

6033 

10  020 

1 

CCS 

cyr 

0044 

6034 

1 6167 

0 

TCF 

0PJUMP2 

0045 

6035 

1 6730 

1 

TCF 

Exit 

JUL  9»  1965  (MAIN)  PAGE  18 


USER'S  OwN  PAGE  NO,  2 

DISPATCH  The  Next  operation, 

prologue  for  mode-changing  instructions. 

Set  pBANx  before  Testing  newjob  so  that 
BBAnK  MAy  be  saved  DIRECTLY  By  CHANJOB, 

SEE  If  order  code  is  Left  over  from 

THE  LAST  PAIR  RETRIEVED.  IF  SO,  EXECUTE. 
EDOP  IS  SET  TO  ZERO  ON  ITS  RE-EDITING. 

SEE  IF  A JOB  OF  HIGHER  PRIORITY  IS 
PRESENT'  AND  iF  SO,  CHANGE  JOBS. 

ADVANCE  THE  LOCATION  COUNTER, 

ENTRY  TO  begin  By  PiCkING  OP  CODE  PAIR, 
MAY  be  an  OPCODE  PAIR  OR  A STORE  CODE, 
test  sign  and  get  DABS(A), 

PROCESS  STORE  CODE. 


OP  CODE  pair,  leave  ThE  OTHER  IN  EDOP 
where  CCS  EDoP  WILL  HONOR  IT  NExT. 

LOWWO  enters  here  If  a RIgHT-HANd  OP 
CODE  IS  TO  Be  processed,  test  PREFICEs. 
TEST  SECOND  PREFIX  BIT, 

+0  OP  CODE  IS  Exit. 


275690 


YUL  SYSTEM  FOR  BLK?:  REVISION  0 OF  PROGRAM  RETRED49  By  NAsA  2021100 


JUL  9f  1955  (MAIN)  PAGE  Ig 


liSt-procesSiNq  interpreter 


USER'S  Own  page  no.  3 


P0046  PROCESS  addresses  WHICH  MAY  BE  DIrEC^,  INDEXED,  OR  REFERENCE  jHE  P^sHDOWN  LIst* 


0048 

6036 

0049 

6037 

0050 

6040 

0051 

5041 

0052 

6042 

go53 

0054 

5044 

0055 

6045 

0056 

6046 

0057 

6047 

7 7646 

0 

address 

MASK 

biti 

10  000 

0 

CCS 

A 

1 6073 

1 

TCF 

INDEX 

50  150 

0 

DIRADrEs 

INDEX 

LOC 

4 0001 

1 

0CT40001 

C5 

1 

lO  000 

0 

CCS 

A 

1 6135 

1 

TCF 

PUSHUP 

77773 

1 

NEG4 

DEC 

-4 

24  150 

0 

I NCR 

LOC 

54  102 

0 

TS 

ADDRWD 

SEE  IF  address  is  INDEXED.  CyR  CONTAINED 
400XX,  SO  bit  1 Is  NOW  As  It  was  in  CYR. 
form  indexed  address. 

LOOK  AHEAD  jO  NEXT  WORD  yO  sEE  IF 
ADDRESS  is  Given. 

IF  NOT. 


Ip  so,  TO  SHOW  We  picked  up  a word. 


275690 

P0058 

R0060 

R0062 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 


jUL  9*  1965  (MAjN)  PAGE  20 


YUL  system  pOR  blk2:  Revision  o op  program  rptred44  by  nasa  2021100 


list-processing  interpreter 


USER'S  own  page  N0«  4 


Final  Digestion  of  direcj  addresses  of  op  codes  with  01  prefix  is  done  here,  in  each  case,  the 
required  12  bit  SUB-*DDrESS  Is  left  in  ADDrWD.  with  any  required  bank  switching  done  (F  ONLY),  addresses  less 
Than  45d  are  taken  to  be  relative  to  the  work  area,  the  op  code  iS  now  iN  Bits  1-5  of  cyr  with  Bit  14  = 1, 


6050 

6 6171 

0 

AD 

-endvac 

6051 

10  000 

0 

CCS 

A 

6052 

6 6234 

1 

AD 

-enderas 

6053 

1 6060 

0 

TCF 

lERASTST 

6054 

3 0104 

1 

NETZERo 

CA 

FiXLqC 

6055 

26  102 

0 

ADS 

ADDRWD 

6056 

50  020 

0 

♦ 2 

INDEX 

Cyr 

6057 

7 6234 

0 

7 

INDJUMP  -1 

6060 

0 0006 

1 

lERASTST 

extend 

6061 

6 6056 

1 

bzmf 

NETZERO  *2 

6062 

6 0100 

0 

FIXEDADR 

AD 

INtB15* 

6063 

54  004 

1 

♦ 1 

TS 

fbank 

6064 

7 6425 

0 

MASK 

LOWlo 

6065 

6 7634 

1 

AD 

2K 

6066 

54  102 

0 

TS 

ADDRWD 

6067 

50  020 

0 

INDEX 

CYR 

6070 

7 6234 

0 

7 

INDJUMP  -1 

SEE  IF  address  RELATIVE  TO  WORK  AREA, 
IF  NOT*  SEE  IF  IN  GENERAL  ERASABLE, 


IF  So*  LEAVE  THE  MqDIFiED  ADDrESS  In 
ADDRWD  and  DISPATCH, 

this  index  makes  the  next  instruction 

TCF  INDJUMP  ♦ OP,  EDITING  CYR. 


general  ERASABLE  - DiSPATCh  iMMeDiATELY. 
FIXED  bank  address,  REstORE  AND  ADD  Bis, 

switch  banks  and  leave  SUB-ADDRESS  iN 
ADDRWD  for  operand  RETRIEVAL, 
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LIST-PrOCESSIN<5  INTErPrETEr 

POOal  THE  FOLLOWING  ROUTINE  PROCESSES  INTERPRETIVE  INOExED  ADDRESSESt 
R0083  contain  |HE  ADDRESS  OF  ANY  ERAsABlE  REeis^ER  (0-42  BEING  RELATIVE  tO  tHE 
R0085  bank,  or  ANY  INTEGER  IN  ThAT  RANgE, 


0086 

6071 

3 7661 

1 

DODLOAD#  CAF 

DLOAD# 

0087 

6072 

54  020 

1 

TS 

CYR 

0088 

6073 

3 0104 

1 

INDEX  CA 

FIXLOC 

0089 

6074 

54  114 

1 

TS 

indexloc 

OO9O 

6075 

24  150 

0 

INCR 

LOC 

OO9I 

6076 

50  150 

0 

INDEX 

LOC 

0092 

6O77 

4 0000 

0 

cs 

0 

0093 

6100 

10  OOO 

0 

CCS 

A 

OO94 

6101 

24  114 

0 

INCR 

indexloc 

0095 

6102 

1 6103 

1 

NOOP 

0096 

6103 

54  102 

0 

TS 

AodRWD 

0097 

6104 

7 6232 

0 

MASK 

BANKMA5K 

0098 

6I95 

0 0006 

1 

EXTEND 

OO^g 

6106 

1 6111 

1 

BZF 

INDEX2 

0100 

6107 

3 0101 

1 

CA 

INTBIT15 

0101 

6110 

26  102 

0 

AOS 

ADDRWD 

0102 

5111 

50  llA 

0 

INDEX2  INDEX 

INDEXLOC 

0103 

6112 

4 0046 

1 

CS 

XI 

0104 

6U3 

26  102 

0 

AdS 

AddRWO 

0105 

6114 

7 6231 

0 

MASK 

HIGH9 

0106 

6ll5 

0 0006 

1 

EXTeND 

OIO7 

6ll6 

1 6131 

0 

BZF 

INDWORK 

0108 

6117 

7 6232 

0 

MASK 

BANKMASK 

0109 

6120 

0 0006 

1 

EXTEND 

0110 

6l?l 

1 6133 

1 

BZF 

INDERASE 

0111 

6122 

3 0102 

1 

CA 

ADDRWD 

0112 

6123 

54  004 

1 

TS 

FBANK 

0113 

6124 

7 6425 

0 

MASK 

LOWIO 

0114 

6125 

6 7634 

1 

AD 

2K 

OIU 

6126 

54  102 

0 

TS 

ADDRWD 

0116 

6127 

50  020 

0 

INDEX 

CYR 

0117 

6130 

3 6234 

1 

3 

INDJUMP 

0118 

6131 

3 0104 

1 

iNDWORK  CA 

FiXLOC 

0119 

6132 

26  102 

0 

ADS 

ADDRWD 

0120 

6133 

50  020 

0 

iNderase  index 

CYR 

0121 

6134 

3 6234 

1 

3 

INDJUMP 

JUL  9»  1965  (MAiN)  PAGE  21 

USER'S  OWN  PAGE  NO,  5 

AN  interpreter  index  REGISTER  MAy 
VAC  AREA)  OR  ANY  INj ErPREj I VE  PROGRAM 

5TODL*  COMEs  HERE  TO  PROCESS  LOAD  ADR. 

(STOVL"  enters  Here), 

SET  Up  INDEX  LOCATION, 

(ADDRESS  always  GIVEN). 

index  2 IF  address  STOpED  COMPLEMENTED, 

14  BIT  Address  to  addrwd, 

IP  address  greater  than  IK,  ADD  INTBItIS 

DO  augment,  ignoring  and  correcting  OvF, 
SEE  if  address  is  IN  WORK  ArEA, 

SEE  IF  IN  FIXED  BANK, 

In  fixed  - switch  banks  AjyjD  CREATE 
SUB-ADDRESS, 


make  addrwd  relative  to  work  area. 
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LiST-pRoCESSING  INTERPRETER  U5ER*S  OWN  pAGE  N0»  6 

P0122  PuSH-uP  routines.  WHEN  NO  OPERAND  ADDRESS  IS  GlyEN,  THE  APPROPRIATE  OPERAND  is  TAKEN  ProM  tHE  PuSH-DowN 

R012A  list,  in  most  casEs  the  mqde  of  the  result  (vector  or  SCALAR)  OP  the  last  arithmetic  operation  performed 

R0126  IS  ThE  same  AS  ThE  TYPE  Op  OPERAND  DeSIReD  (ALL  ADD/SUBTRACT  ETC.).  EXCEPTIONS  TO  THIS  GENERAL  RULE  ARE  LISTED 

R0128  BELOW  (NOTE  THAT  IN  EVERY  CASE  THE  MODE  REGISTER  IS  LEFT  INTACT) I 

R0129  1.  VXSC  and  V/SC  WANT  THe  OPPOSITE  TYPe  Op  OPeRANd.  e.g**  IF  THe  LAST  OPERATION  YIELDED  A VECTOR 

R0131  RESULT,  VXSC  WANTS  A SCALAR. 


R0132  2.  THE  load  CODES  ShOULO  LOAD  THe  ACCUMULATOR  iNDePeNDeNT  Op  THE  RESULT  Op  THE  LAST  OPERATION,  THIS 

R013A  INCLUDES  VLOAD,  DLoAD,  TLOAD,  POOL,  AND  PDVL  (NO  PUSHUP  WITH  SLOAD). 


R0135  3.  SOMp  arithmetic  OPpRATIONS  ReQUIRe  * STANdARq  TYPe  OF  OPeRANq  ReGARdLeSS  OF  THp  PReVIOuS  OPpRATlON, 

R0137  this  includes  SION  WAN.I.ING  DP  AND  tAO  REQUIRING  TP. 


0138 

6135 

3 6227 

0 

PUSHUP 

CAp 

0CT23 

0139 

6136 

7 0020 

1 

MASK 

CyR 

QUO 

6137 

6 6142 

0 

AD 

-OCTlO 

OUl 

6140 

10  000 

0 

CCS 

A 

0U2 

6141 

1 6153 

1 

TCF 

REGuP 

0143 

6142 

77767 

1 

-OcTlO 

OCT 

-10 

0144 

6143 

6 6045 

0 

AO 

NEG4 

0145 

6144 

10  000 

0 

CCS 

A 

0146 

6145 

50  000 

1 

INDEX 

A 

0147 

6146 

4 6164 

0 

CS 

NO.WDS 

0148 

6147 

1 6155 

1 

TCF 

REGUP  *2 

0149 

Si  So 

So  lA7 

0 

INDEX 

MODE 

0150 

6151 

4 6162 

0 

CS 

REVCnT 

0151 

6152 

1 6155 

1 

TCF 

REGUP  +2 

0152 

6153 

50  147 

0 

REGUP 

Index 

MqDE 

0153 

6154 

4 6164 

0 

CS 

NO.WDS 

0154 

6155 

26  152 

0 

.2 

ADS 

PUSHLOC 

0155 

6156 

54  102 

0 

TS 

ADDRWD 

0156 

6157 

50  020 

0 

INDEX 

CYR 

0157 

6160 

7 6234 

0 

7 

INDJuMP  ' 

0158 

6161 

00002 

0 

OCT 

2 

0159 

6162 

00006 

1 

REVCNt 

OCt 

6 

0160 

6163 

00006 

1 

OcT 

6 

0l6l 

6l64 

00002 

0 

NO.WDS 

OCT 

2 

0162 

6165 

00003 

1 

OCt 

3 

0163 

6166 

00006 

1 

OCT 

6 

Ip  the  low  5 BITS  Op  CYR  ARE  LeSS  THAn 
20,  THIS  OP  REQUIRES  SPECIAL  ATTENTION, 
(NO  -0). 

FOR  ALL  CODES  GREATER  THAN  OCt  7, 


wE  NOW  HAyE  7 - OP  C0DE(M0D4),  sEE  IF 
THE  OP  CODE  (MODA)  IS  THREE  (REVERSE). 
NO  - THE  mode  is  DEFINITE.  PICK  UP  THE 


FOR  VXSC  AND  v/SC  WE  WANT  THE  REQUIRED 
PUSHLoC  (DECREMENT  WITHqUT  CHAnGinG  THE 
MODE  AT  THIS  TIME, 

Most  all  oP  CqDes  pushup  here. 


(tHE  index  makes  this  a tCF.) 

reverse  pushup  decrement,  vector  takes  2 
WORDS*  scalar  tAKEs  6. 

conventional  decrement  is  6 WORDS  VECTOR 
2 IN  DP*  and  3 IN  JP* 
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list-processing  Interpreter  user's  own  page  nO.  t 

Pgi64  test  the  second  prefix  ^it  to  see  if  this  is  a Miscellaneous  or  a unary/short  shift  operation, 

0166  6167  10  020  1 0PJUMP2  CCS  CYR  TeST  SeCONd  PRefIX  BIT, 

0167  6170  1 6217  1 TCP  0PJUMP3  TEST  THIRD  BIT  TO  SEE  IF  UNARy  OR  SHIFT, 

0168  61T1  77722  0 -ENDVAC  DEC  -A5 

R0169  the  following  routine  processes  addresses  OF  suEEix  Class  lo,  theu  are  basically  wor<  Area  addresses 

R0171  IN  THE  range  0 . 52,  ERASABLE  ADRES  CONSTANTS  FROM  100  _ 1777,  AND  FCADRS  ABOVE  THAT,  ALL  15  BiTS  ARE  AVAILABLE 

ROI73  IN  CONTRAST  TO  SUFFIX  1,  IN  WHICH  ONLY  THE  LOW  ORDER  14  Are  AVAILABLE, 


017A 

6172 

29  150 

0 

15BITADR 

InCR 

LqC 

(Entry  here  from  stcalu). 

0175 

6173 

50  I5O 

0 

INDEX 

LOC 

pick  up  address  word. 

0176 

6179 

3 0000 

1 

CA 

0 

0177 

6175 

59  103 

1 

TS 

POLISH 

THE  absolute  ADDRESS  WILL  BE  LEFT  IN 

OI78 

6l76 

59  102 

0 

T5 

addrwd 

POLISH  WITH  AN  ERASABLE  SuBADDRESS  IN 

A0179  ' 

AODrWO, 

0180 

6177 

7 6231 

0 

MASK 

HIGH9 

SEE  IF  RELATIVE  TO  ThE  WORK  AREA, 

0I8I 

62oo 

lo  000 

0 

CCS 

A 

0182 

6201 

1 6203 

1 

TCF 

+ 2 

0183 

6202 

1 6210 

0 

tcf 

ReLWORK 

ONLY  If  Zero, 

018A 

6203 

3 6230 

0 

CAF 

L0W7+2K 

THEjE  INSTRUCTIONS  ArE  IN  BANK  1, 

0185 

6209 

59  009 

1 

TS 

fbank 

0186 

62°5 

7 OO2O 

1 

MASK 

CYR 

0187 

6206 

50  000 

1 

index 

A 

0188 

6207 

1 6275 

0 

tcf 

Mi  SC JUMP 

0189 

6210 

3 0109 

1 

RELwORK 

CA 

FlxCOC 

MAKE  ADDRwD  relative  TO  FixLOC,  LEAvING 

0190 

6211 

26  102 

0 

AOS 

addrwd 

polish  absolute  in  case  This  was  an 

0191 

62^2 

3 6230 

0 

CAF 

L0W7+2K 

AXT,  ETC, 

0192 

6213 

59  009 

1 

TS 

fbank 

0193 

62H 

7 0020 

1 

Mask 

CYR 

0194 

6215 

5O  000 

1 

INDEX 

A 

0195 

6216 

1 6275 

0 

TCF 

MI  SC JUMP 
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UIST-PROCESSING  interpreter  USER'S  Own  page  N0»  8 


P0196 

COMPLETE  THE  DiSPATChiNQ  OF 

unary  and 

Short 

Shift  operations. 

0197 

6217 

54  004 

1 0PJUMP3 

TS 

fbank 

CALL  IN  BANK  0 (BITS  11-15  OF  A ARE  0.) 

0198 

6220 

10  020 

1 

CCS 

CYR 

TEST  THIRD  PREFIX  BIT, 

0199 

6221 

50  000 

1 

INDEX  A 

THE  DECREMENTED  UNARY  CODE  IS  IN  BITS 

0200 

6222 

1 6315 

1 

TCF 

unajump 

1-4  OF  A (ZERO*  EXIT*  HAS  BEEN  DETECTED) 

0201 

6223 

10  147 

1 

CCS 

MODE 

ITS  A SHORT  SHIFT  CODE,  SEE  IF  PRESENT 

0202 

6224 

1 2000 

1 

TCF 

SHORTT 

scalar  or  VECTOR, 

0203 

6225 

1 2000 

1 

TCF 

ShORTT 

0204 

6226 

1 2102 

1 

TCF 

SHORTY 

CALLS  the  appropriate  ROUTINE, 

0205 

6227 

00023  0 

OcT23 

OcT 

23 

Mask  used  by  push-up  routine. 

0206 

6230 

02177  1 

L0w7*2K 

OCT 

2177 

OP  CODE  mask  ♦ BANK  1 FBANK  SETTING, 

0207 

6231 

77700  0 

HIGH9 

OCT 

77700 

020g 

6232 

76000  0 

BANKMA5K 

OCT 

76000 

FBANK  MASK, 

0209 

6232 

FBANKMsK 

equals 

BANKMAsK 

0210 

6233 

36000  1 

B11T14 

OCT 

36000 

USED  IN  PROCESSING  STORE  CODES, 

0211 

6234 

76056  0 

-ENDERAS 

DEC 

-977 
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P0212  The  following  jS  the  jUMP  table  for  op  CODES  WHICH  may  have  indexable  addresses-  or  MAY  PUSH  UP, 


0214 

6235 

1 

6510 

1 

INDJUMP  TCF 

VLOAD 

00 

load  mPAC  with  a vector. 

0215 

6236 

1 

7047 

1 

TCF 

TAD 

01 

triple  precision  add  to  MPAC, 

021fe 

6237 

1 

7572 

1 

TCF 

SIGN 

02 

- 

complement  MPAC  (V  OR  SC)  IF  X NE6. 

0217 

6240 

1 

7345 

0 

tcf 

VXSC 

03 

vector  times  scalar. 

0218 

6241 

1 

6671 

0 

TCF 

CqOTO 

04 

m 

COMPUTED  GO  TO. 

n2l9 

6242 

1 

6473 

0 

TCF 

TLOAD 

05 

• 

LOAD  mPAc  with  TRIPLE  PRECISION. 

0220 

6243 

1 

6464 

0 

TCF 

DiOAD 

06 

• 

lOAD  MPAC  WITH  A DP  SCAi AR, 

0221 

6244 

1 

754I 

1 

TCF 

v/sc 

O7 

- 

VECTOR  DIVIDED  BY  SCALAR, 

0222 

6245 

1 

6504 

1 

TCF 

SloAD 

10 

LoAD  mpAC  In  single  precision* 

0223 

6246 

1 

6623 

1 

TCF 

5SP 

11 

• 

SET  single  precision  INTO  X. 

0224 

6247 

1 

6526 

1 

TCF 

POOL 

12 

- 

PUSH  DOwN  MPAC  and  RE-LOAD  IN  DP. 

0225 

6250 

1 

7300 

1 

TCF 

MXV 

13 

MATRIX  POST-MULTIPLIED  BY  VECTOR. 

0226 

6251 

1 

6562 

1 

TCF 

PDVL 

14 

. 

PUSH  down  and  vector  LOAD. 

0227 

6252 

1 

6631 

1 

tcf 

ccall 

15 

m 

computed  CALL, 

0228 

6253 

1 

7303 

1 

TCF 

VXM 

16 

MATRIX  PRE-MULTIPLIED  BY  VECTOR, 

0229 

6254 

1 

7533 

1 

TCF 

tslc 

I7 

NORMALIZE  MPAC  (SCALAR  ONLY) . 

0230 

6255 

1 

7511 

1 

TCF 

DMPR 

20 

DP  multiply  and  ROUND, 

0231 

6256 

1 

7514 

1 

TCF 

DOV 

21 

« 

DP  DIVIDE  By, 

0232 

6257 

1 

7520 

0 

TCF 

BODy 

22 

DP  DIVIDE  INTO. 

0233 

6260 

1 

7536 

1 

TCF 

GSHIFT 

23 

general  shift  INSTRUCTION, 

0234 

6261 

1 

6732 

0 

TCF 

VAD 

24 

> 

VECTOR  ADD. 

0235 

6262 

1 

6760 

1 

tCF 

Vsy 

25 

. 

VECjOR  suBtRACt* 

0236 

6263 

1 

7010 

0 

tcf 

0VSU 

26 

VECTOR  SUBTRACT  pROM. 

o237 

6264 

1 

7275 

1 

TCF 

DOT 

27 

- 

vector  DOT  PRODUCT. 

0238 

6265 

1 

7423 

1 

Tcf 

vxv 

30 

Vector  cross  product. 

q239 

6266 

1 

7371 

1 

TCF 

VPROJ 

31 

« 

vector  projection. 

0240 

6267 

1 

6776 

0 

TCF 

DSU 

32 

DP  SUBTRACT, 

0241 

6270 

1 

7034 

0 

TCF 

BDSU 

33 

DP  SUBTRACT  FROM. 

0242 

6271 

1 

6750 

1 

tcf 

DAD 

34 

DP  add. 

0243 

6272 

1 

6272 

1 

TCF 

35 

AVAILABLE 

0244 

6273 

1 

75O7 

0 

TCF 

DMPl 

36 

DP  MULTIPLY. 

0245 

6274 

1 

7530 

1 

TCF 

SEtPD 

37 

- 

set  Push  oowN  pointer  (direct  onlY) 

R0Z46  CODES  10  U MUST  NOT  PUSH  UP.  CODE  OA  M^Y  BE  USED  FOR  VECTOR  DECLaRE  BEFORE  PUSHUP  IF  DESIRED, 
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list-processing  interpreter  usERts  Own  Page  no,  lo 

p02A8  THE  Following  jump  table  applies  tq  index,  branch,  and  miscellaneous  instructions. 


0250 

, 6275 

1 

2000 

1 

MI  sc JUMP  TCF 

AXT 

00 

. 

ADDRESS  TO  INDEX  TRUE, 

0251 

6276 

1 

2005 

1 

TCF 

Axe 

01 

address  TO  index  Complemented, 

0252 

6277 

1 

2010 

0 

TCF 

LXA 

02 

load  index  from  erasable. 

0253 

6300 

1 

2014 

1 

tcf 

LXC 

03 

LOAD  INDEX  FROM  COMPLEMENT  OF  ERA5, 

025A 

6301 

1 

2020 

0 

TCF 

SXA 

04 

STORE  INDEX  IN  ERASABLE, 

oZ55 

63q2 

1 

2o2‘> 

1 

TCF 

XCHX 

05 

- 

EXCHANGE  INDEX  WITH  ERASABLE, 

0256 

6303 

1 

2040 

0 

TCF 

incr 

06 

. 

INCREMENT  INDEX  REGISTER, 

0257 

6304 

1 

2047 

1 

TCF 

TIX 

07 

- 

transfer  on  INDEX, 

0258 

6305 

1 

2032 

0 

TCF 

XAD 

10 

InDex  register  add  from  erasable. 

0259 

6306 

1 

2043 

0 

TCF 

XSU 

11 

m 

INDEX  SUBTRACT  FROM  ERASABLE, 

0260 

6307 

1 

2107 

1 

tcf 

BZE/GOjO 

12 

m 

branch  zero  and  goto. 

0261 

6310 

1 

2114 

0 

TCF 

BPL/BMN 

13 

m 

branch  plus  and  branch  Minus, 

0262 

6311 

1 

2127 

0 

TCF 

call/ita 

14 

* 

CALL  AND  STORE  QPRET. 

0263 

6312 

1 

2067 

0 

TCF 

rtb/bhiz 

15 

• 

return  To  basic  AnD  branch  hi  zero 

0264 

6313 

1 

2135 

0 

TCF 

Sw/ 

16 

SWITCH  INSTRUCTIONS  AND  AVAILABLE, 

0265 

6314 

1 

2077 

1 

TCF 

BOV(B) 

17 

- 

branch  on  overflow  to  basic  or  int 
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p0266  THE  Following  jump  table  arpies  to  unAry  instructions. 


A0267 

026S 

6315 

1 

3125 

0 

uNAJuMP  tCF 

sort 

00 

01 

EXIT  - detected  earlier. 
SQUARE  ROOj, 

0269 

6316 

1 

3442 

1 

TCF 

SINE 

02 

a 

SIN. 

0270 

6317 

1 

3431 

0 

TCF 

COSINE 

03 

. 

COS. 

0271 

6320 

1 

3522 

0 

TCF 

arcsin 

04 

ARC  SIN. 

0272 

6321 

1 

352A 

0 

TCF 

arccos 

05 

ARC  COS, 

0273 

6322 

1 

3107 

0 

TCF 

DSQ 

06 

DP  square. 

027A 

6323 

1 

3111 

1 

tcf 

ROuND 

07 

- 

ROyND  jO  DP, 

0275 

6324 

1 

7605 

1 

TCF 

COMP 

10 

complement  Vector  or  scalar. 

qZ76 

6325 

1 

3150 

1 

tcf 

VDEF 

11 

• 

vector  define. 

0277 

6326 

1 

2750 

0 

TCF 

UNIT 

12 

UNIT  VECTOR. 

0278 

63?7 

1 

3114 

1 

TCF 

abvalabs 

13 

• 

length  OF  VECTOR  OR  MAG  OF  SCALAR 

0279 

6330 

1 

3164 

0 

tcf 

VsQ 

14 

• 

SQuARE  OF  length  OF  VECjOR. 

0280 

6331 

1 

6334 

1 

tcf 

stadr 

15 

* 

puSh  up  on  store  cOde* 

0Z8I 

6332 

1 

321A 

1 

TCF 

RVQ 

16 

RETURN  VIA  QPRET. 

0282 

6333 

1 

3167 

0 

TCF 

PUSH 

17 

PUSH  MPAC  down. 
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list-processing  interpreter  USER'S  Own  page  no,  12 

P0283  SECTION  2 LOAD  AND  STORE  PAC<AGE. 

R0284  A SET  OF  SIXTEEN  STORE  CODES  ARE  PROVIDED  AS  THE  PRlMARy  METHOD  OF  STORING  THE  MuLTI-PURPOSE 

R0286  accumulator  (MPAC),  IF  iN  THE  DANZIG  SECTION  LOC  REFERS  TO  AN  ALGEBRAICALLY  POSITIVE  WORD,  IT  iS  TA|<EN  AS  A 
R0288  STORE  CODE  WITH  A CORRESPONDING  ERASABLE  ADDRESS,  MOST  OF  THESE  CODES  ARE  TwO  ADDrESS,  SPECIFYING  THAT  THE  wOrD 

r0290  following  THE  STORE  CODE  IS  TO  BE  USED  AS  AN  ADDrESS  FrOM  WHICH  TO  rE-LOAD  MPAC,  FOUr  OPTIONS  ArE  AVAILABLE: 


R0292 

1,  STORE 

STORE  MPAC,  the 

E ADDRESS  MAy  BE  INDEXED, 

R0294 

2,  STODL 

store  MPAC  AND 

RE-LOAD 

It  in  DP  wItH 

the  next  address  (EITHER  MAY  BE  INDEXED), 

R0296 

3,  STOVL 

STORE  MPAC  and 

re-load 

A VECTOR  (AS 

ABOVE) . 

Rq298 

4,  stcall 

STORE  and  do  a 

call  (Both  addresses 

MUST  be  direct  HERE), 

R0300 

STODL  AND 

STOVL  WiLL 

take  from 

ThE  PUSh-DOWN  LjST  iF  no  LOAD  ADDRESS  iS  QiVEN, 

0302 

6334 

3 0151  1 

STAdR 

CA 

bankset 

The  stadr  code  (pushup  up  on  store 

0303 

6335 

54  004  1 

TS 

FBANK 

ADDRESS)  ENTERS  HERE, 

0304 

6336 

24  150  0 

I NCR 

LOC 

0305 

6337 

50  150  0 

INDEX 

LOC 

THE  STORE  CODE  wAS  STORE  COMPLEMENTED  TO 

0306 

6340 

4 0000  0 

C5 

0 

MAKE  IT  LOOK  LIKE  AN  OPCODE  PAIR, 

0307 

6341 

54  102  0 

DqSToRE 

TS 

ADDRWD 

0308 

6342 

7 6425  0 

MASK 

LOWIO 

ENTRY  FROM  DISPATCHER,  SAvE  THE  ERASABLE 

0309 

6343 

56  102  1 

XCH 

ADDRWD 

address  BND  on  the  store  CODE  NO, 

0310 

6344 

7 6233  1 

MASK 

B11T14 

0311 

6345 

0 0006  1 

EXTEND 

0312 

6346 

7 7641  1 

MP 

BITS 

EACH  transfer  vector  ENTRY  IS  Tw°  WORDS, 

0313 

6347 

50  000  1 

INDEX 

A 

0314 

6350 

1 6351  1 

TCP 

STORJUMP 
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list-processing  interpreter 

USER'S  OWN  pAGE  NO.  13 

P0315 

STORE  Code  Jump  t*ble. 

CALLS  the  appropriate 

storing  routine 

AND  Exits  to  danzig  or  to  address 

R0317 

A SUPPLIED  operation  CODE. 

0318 

6351 

0 

6421 

0 

STORJuMP  tc 

store 

STORE. 

q319 

6352 

1 

6q2Z 

0 

TCP 

NEWOPS  -1 

PICK  up  new  op  C0DE<S) . 

0320 

6353 

0 

6413 

1 

TC 

STORE »1 

0321 

6354 

1 

6022 

0 

TCP 

NEWOPS  -1 

0322 

6355 

0 

6416 

1 

TC 

ST0RE»2 

0323 

6356 

1 

6022 

0 

TCP 

NEWOPS  -1 

0324 

6357 

0 

6421 

0 

TC 

STORE 

stodl. 

0325 

6360 

1 

6454 

0 

TCP 

DODLOAD 

0326 

6361 

0 

6413 

1 

TC 

STORE tl 

0327 

6362 

1 

6454 

0 

TCP 

DODLOAD 

0328 

6363 

0 

6416 

1 

TC 

STORE. 2 

032q 

6364 

1 

6454 

0 

TCP 

DODLOAD 

0330 

6365 

0 

6421 

0 

TC 

SToRE 

stqDl  with  Indexed  lo*d  address, 

0331 

6366 

1 

6071 

0 

TCP 

D0DL0AD4 

0332 

6367 

0 

6413 

1 

TC 

store. 1 

0333 

6370 

1 

6071 

0 

TCP 

DODLOAD* 

0334 

6371 

0 

6416 

1 

TC 

STORE. 2 

0335 

6372 

1 

6071 

0 

TCP 

DODLOAD* 

0336 

6373 

0 

6421 

0 

TC 

store 

STOVL. 

q337 

6374 

1 

6457 

9 

TCP 

OOVLOAD 

0338 

6375 

0 

6413 

1 

TC 

store.  1 

0339 

6376 

1 

6457 

0 

TCP 

DOVLOAD 

0340 

6377 

0 

6416 

1 

TC 

store. 2 

0341 

6400 

1 

6457 

0 

TCP 

dovload 

0342 

6401 

0 

6421 

0 

TC 

STORE 

STOvL  WITH  INDEXED  LOAD  ADDRESS 

0343 

6402 

1 

6462 

0 

TCP 

DOVLOAD* 

0344 

6403 

0 

6413 

1 

TC 

STORE. 1 

0345 

6404 

1 

6462 

0 

TCP 

DOvLOAD* 

0346 

6405 

0 

6416 

1 

TC 

STORE. 2 

0347 

6406 

1 

6462 

0 

TCP 

DOVLOAD* 

0348 

6407 

0 

6421 

0 

TC 

store 

SToTC. 

0349 

6410 

3 

7657 

1 

CAP 

CALLCODE 

0350 

6411 

54  020 

1 

?!p 

CYR 

0351 

6412 

1 

6172 

1 

ISBiTADR 

get  a 15  BjT  ADDRESS, 

275690  yUL  system  FOR  BLK2:  REVISION  0 OF  PROGRAM  REtREDAA  By  NAsA  202U00 


list-processing  interpreter 

P0362  store  code  ADDRESS  PROCESSOR, 


q353 

6413 

50  l04 

1 

STORE, 1 

INDEX 

FIXLOC 

0354 

6414 

4 0046 

1 

cs 

XI 

0355 

6415 

1 6420 

0 

TCF 

PRESTORe 

0356 

6416 

50  104 

1 

STORE, 2 

INDEX 

FIXLOC 

0357 

6AI7 

4 0047 

0 

CS 

X2 

0358 

6420 

26  102 

0 

PRESTORE 

ADS 

ADDRwO 

0359 

6421 

3 0102 

1 

store 

CA 

ADDrWD 

0360 

6422 

6 6I7I 

0 

Ad 

-endvac 

0361 

6423 

10  000 

0 

CCS 

A 

0362 

6424 

1 6430 

1 

TCF 

startsto 

0363 

6425 

01777 

1 

LOWlO 

OCT 

1777 

0364 

6426 

3 0104 

1 

CA 

FiXLOC 

0365 

6427 

26  102 

0 

ADS 

addrwo 

JUL  9*  1965  <MAIN)  PAGE  30 
USER'S  OWN  PAGE  NO,  14 

resultant  address  is  in  erasable, 

SEE  IF  address  RELATIVE  TO  wOrK  ArEA, 

ADDRESS  OK  AS  IS, 

Given  address  iS  relative  to  work  area. 
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Pq366 

0367 

q368 

0369 

0370 

0371 

0372 

0373 

037A 

0375 

0376 

0377 

0378 

0379 

0380 

03el 

0382 

0383 

03aA 

0385 

0386 


lIst-processing  Interpreter 


USER'S  OWn  page  nO,  15 


STORING  routines.  STORE  DP,  TP.  OR  VECTOR  As  INDICATED  By  MoDg. 


6A30 

0 0006 

1 

5TARTST0 

extend 

6431 

3 ol'H 

0 

DCA 

MPAC 

6432 

50  102 

1 

INDEX 

ADDRWD 

6433 

52  001 

1 

OXCH 

0 

6434 

10  147 

1 

CCS 

MqDE 

6435 

1 6450 

1 

TCF 

TSTORe 

6436 

0 0002 

0 

tc 

0 

6437 

0 0006 

1 

VSToRe 

EXTeNd 

6440 

3 0K4 

0 

DCA 

MPAC  +3 

6441 

50  102 

1 

INDEX 

ADDRWD 

6442 

52  003 

0 

DXCh 

2 

6443 

0 0006 

1 

EXTEND 

6444 

3 0146 

1 

DCA 

MPAC  +5 

6445 

50  102 

1 

INDEX 

ADDRWD 

6446 

52  005 

0 

DXCH 

4 

6447 

0 0002 

0 

TC 

Q 

6450 

3 0142 

0 

TSTORe 

CA 

MPAC  »2 

6451 

50  102 

1 

INDEX 

ADDRWD 

6452 

54  002 

1 

TS 

2 

6453 

0 0002 

0 

TC 

Q 

MPAC.+l  must  be  stored  iN  ANY  EVENT, 
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LIsT-PROceSSING  interpreter  USER'S  OWN  page  no,  16 

P0387  routines  TO  BEGIN  PROCESSING  OF  THE  SECOND  ADDrESS  ASSOCIATED  WITH  AlL  STOrE-TyPE  CqDES  EXCEPT  STOrE 

R0389  itself. 


0390 

645<t 

3 7660 

0 

DODLOAD 

CAF 

dloadcod 

0391 

6455 

54  020 

1 

TS 

CYR 

0392 

6456 

1 6041 

0 

TCF 

OIRADRES 

GO  get  a direct  address. 

0393 

6457 

3 7630 

0 

DqVLoAD 

CAF 

VloADCoD 

0394 

6460 

54  020 

1 

TS 

CYR 

0395 

6461 

1 6041 

0 

TCF 

OIRADRES 

0396 

6462 

3 6042 

1 

DOVLOAD* 

CAF 

VLOAD" 

0397 

6463 

1 6072 

0 

TCF 

dodload*  +1 

prologue  to  index  routine 
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list-processing  interpreter  USER'S  OWN  PAGE  NO.  17 

P0398  THE  FOLLOWING  LOAP  INSTRUCTIONS  ArE  PROVIDED  FOR  LOADING  THE  MuLTI-PURPOSE  ACCUMULATOR  MpAC, 


0900 

6464 

0 0006 

1 

DLoAD 

extend 

0401 

6465 

5 0102 

1 

index 

AddRWD 

0402 

6466 

3 0001 

0 

dca 

0 

PICK  UP  op  Argument  and  leave  it  in 

0403 

6467 

52  141 

1 

SL0AD2 

dxch 

MpAC 

MPAC.+I.  SETTING  MPAC  +2  TO  ZERO,  THE 

0404 

6470 

3 7653 

0 

CAF 

ZERO 

contents  of  the  OTHER  FOUR  REGISTERS  OF 

0405 

6471 

54  142 

1 

T5 

MPAC  *2 

MPAC  ARE  irrelevant. 

0405 

6472 

1 6013 

1 

TCP 

Newmode 

declare  double  precision  mode. 

0407 

6473 

50  102 

1 

TLOAD 

INDEX 

ADDrWD 

0408 

6474 

3 0002 

0 

CA 

2 

load  a triple  precision  argument  into 

0409 

6475 

54  142 

1 

TS 

MPAC  *2 

THE  FIRST  THREE  MPAC  REGISTERS,  WITH  THE 

0410 

6476 

0 0006 

1 

EXTEND 

CONTENTS  OF  ThE  OTHER  FOUR  IRRELEVANT. 

0411 

6477 

5 0102 

1 

INDEX 

ADDRWD 

0412 

6500 

3 0001 

0 

DCA 

0 

0413 

6501 

52  141 

1 

DXCH 

MPAC 

0414 

6502 

3 76‘»6 

1 

CAF 

ONE 

0415 

6503 

1 6013 

1 

tcf 

NEWMODE 

declare  triple  precision  mode. 

0416 

6504 

22  007 

0 

5L0AD 

ZL 

LOAD  A SINGLE  PRECISION  NUMBER  INTO 

0417 

6505 

50  102 

1 

INDEX 

ADDRWD 

MPAC,  setting  MPAC+1,2  tO  ZERO.  tHE 

0418 

6506 

3 0000 

1 

CA 

0 

contents  Op  The  remAiNjNq  mpac  registers 

0419 

55O7 

1 6467 

0 

TCF 

SL0AD2 

ARE  IRRELEVANT, 

0420 

6510 

0 0006 

1 

VLOAO 

extend 

LOAD  A DOUBLE  PRECISION  VECTOR  iNTO 

0421 

6511 

5 0102 

1 

INDEX 

ADDRWD 

MPAC, 41,  MPAC43,4,  and  MPAC45,6,  THE 

0422 

6512 

3 0001 

0 

DCA 

0 

Contents  of  mpac  42  are  irrelevant. 

0423 

6513 

52  141 

1 

OXCh 

MPAC 

0424 

6514 

0 0006 

1 

ENDvLOAD 

Extend 

pDvL  COMES  HERE  TO  FINISH  uP  FOR  DP,  tP. 

0425 

6515 

5 0102 

1 

INDEX 

ADDRWD 

0426 

65l6 

3 0003 

1 

DCA 

2 

0427 

6517 

52  144 

1 

OXCH 

MpAC  +3 

0428 

5520 

0 0006 

1 

+ 4 

EXTEND 

TPDVL  FINISHES  HERE. 

0429 

6521 

5 0102 

1 

INDEX 

ADDRwD 

0430 

6522 

3 0005 

1 

DCA 

4 

0431 

6523 

52  146 

0 

DXCH 

MPAC  45 

0432 

6524 

4 7646 

0 

CS 

ONE 

declare  vector  MODE. 

0433 

6525 

1 6013 

1 

TCF 

NEWMODE 
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list-processing  interpreter 

P0434  The  following  instructions  are  provided  for  STORiNq  operands 


R0436 

1. 

PUSH 

PUSHDOWN 

AND  NO  LOAD. 

R0437 

2. 

PDDL 

PUSHDOWN 

AND  DOUBLE  PRECISION  LOAD 

R0438 

3. 

PDVL 

PUSHDOWN 

AND  VECTOR  LOAD. 

0439 

6526 

0 0006  1 

POOL  extend 

0440 

6527 

5 0102  1 

INDEX 

addrwd 

0441 

6530 

3 0001  0 

DCA 

0 

0442 

6531 

52  141  1 

DXCh 

MpAC 

0443 

6532 

50  152  1 

INDEX 

PUSHLOC 

0444 

6533 

52  001  1 

DXCH 

0 

0445 

6534 

50  147  0 

INDEX 

MODE 

0446 

6535 

3 6164  1 

CAF 

NO.WDS 

0447 

6536 

26  152  0 

ADS 

PUShLOC 

0448 

6537 

10  147  1 

CCS 

MODE 

0449 

6540 

1 6555  0 

TCF 

ENDTPUSh 

O45O 

6541 

1 6553  0 

TCF 

ENODPUSH 

0451 

6542 

54  147  1 

TS 

Mode 

0452 

6543 

54  142  1 

ENdVPUSH  TS 

MPAC  +2 

0453 

6544 

52  144  1 

DXCH 

MPAC  .3 

0454 

6545 

50  152  1 

INDEX 

PUSHLOC 

0455 

6546 

5l'775  0 

DXCH 

0 -4 

0456 

6547 

52  146  0 

DXCH 

MPAC  +5 

0457 

6550 

50  152  1 

INDEX 

PUSHLOC 

0468 

6551 

51'777  1 

DXCH 

0 -2 

0459 

6552 

1 6014  0 

TCF 

DANZIG 

0460 

6553 

54  142  1 

ENODpUSH  TS 

MpAC  +2 

0461 

6554 

1 6014  0 

TCF 

DANZIG 

0462 

6555 

54  147  1 

ENDTpUSH  TS 

MqDE 

0463 

6556 

56  142  0 

XcH 

MpAc  .2 

0464 

6557 

50  152  1 

♦2  INDEX 

PUSHLOC 

0465 

6560 

53'777  0 

TS 

0 .1 

0466 

6561 

1 6014  0 

TcF 

DANZIG 

JUL  9»  1965  (MAIN)  PAGE  34 

USER'S  Own  page  no.  is 
THE  pushdown  LiSTI 


LOAD  MPAC.+l,  PUSHING  THE  FORMER 

contents  down. 


ADVANCE  THE  PUShDOwN  POINTER  APPRO- 
PRIATELY. 


NOW  Dp. 

PUSH  DOWN  THE  REST  OF  THE  VECTOR  HERE. 


Set  MpAC  +2  To  ZERO  *ND  EXIT  qN  Dp. 


ON  triple*  SeT  MPAC  +2  TO  ZeRO*  PUSHING 
DOWN  the  OLD  CONTENTS 
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LlST-pRoCE5SlN<3  INTERpRETER 


P0^67  PDVL  - PUSHDOWN  AND  VECTOR  LOAD, 


0A68 

6562 

0 0006 

1 

PDVL 

extend 

0969 

6563 

5 0102 

1 

INDEX 

ADDRWD 

0970 

6569 

3 0001 

0 

DCA 

0 

0971 

6565 

52  191 

1 

DXCH 

MPAC 

0972 

6566 

50  152 

1 

INDEX 

PU5HL0C 

0973 

6567 

52  001 

1 

DXCH 

0 

0979 

6570 

50  197 

0 

INDEX 

MODE 

0975 

6571 

3 6169 

1 

CAF 

NO*WDs 

0976 

6572 

26  152 

0 

ADS 

PUShLOC 

0977 

6573 

10  197 

1 

CCS 

MODE 

0978 

6579 

1 6613 

1 

TCF 

TPDVL 

0979 

6575 

1 651A 

0 

TCF 

ENDVLOAD 

0980 

6576 

0 0006 

1 

VPDVL 

extend 

0981 

6577 

5 0102 

1 

INDEX 

ADDRWD 

0982 

6600 

3 0003 

1 

DCA 

2 

0983 

6601 

52  199 

1 

DXCH 

MPAC  *3 

0939 

6602 

50  152 

1 

INDEX 

PUSHLOC 

0985 

6603 

51*775 

0 

DXCH 

0 .9 

0986 

6609 

0 0006 

1 

EXTEND 

0987 

6605 

5 0102 

1 

INDEX 

ADDRwO 

0988 

6606 

3 0005 

1 

DCA 

9 

0989 

6607 

52  196 

0 

DXCH 

MPAC  +5 

0990 

6610 

50  152 

1 

INDEX 

PUSHLOC 

0991 

6611 

51*777 

1 

DXCH 

0 -2 

0992 

6612 

1 6019 

0 

TCF 

DANZIG 

0993 

6613 

0 0006 

1 

TpDVL 

extend 

09931 

66i9 

5 0102 

1 

INdeX 

AddRWd 

09932 

6615 

3 0003 

1 

DCA 

2 

09933 

6616 

52  199 

1 

DXCH 

MPAC  +3 

09939 

66I7 

3 0192 

0 

CA 

MPAC  *2 

0999 

6620 

50  152 

1 

INDEX 

PUSHLOC 

0995 

6621 

53*777 

0 

TS 

0 -1 

0996 

6622 

1 6520 

1 

TCF 

ENDVLOAD  +9 

R09g7 

SSP  {STORE  SINGLE  PRECISION) 

1 I 

S EXECUTED  HERE, 

0998 

6623 

29  150 

0 

SSp 

IN^R 

LoC 

0999 

6629 

50  150 

0 

INdeX 

uoc 

0500 

6625 

3 0000 

1 

CA 

0 

0501 

6626 

50  102 

1 

STOREl 

index 

ADDRWD 

0502 

6627 

59  000 

0 

TS 

0 

USER'S  OWN  pA6E  NO* 

RELOAD  MPAC  AND  PUSh  DOWN  jTS  CONTENTS, 


ADVANCE  THE  PUSHDOWN  POINTER, 

TEST  past  mode. 

JUST  LOAD  last  FOUR  REGISTERS  ON  OP. 

pushdown  and  re-load  last  two  components 


ON  Tp*  WE  must  LoAD  THE  Y CqMpONEnT 
BeFORe  storing  MPAC  ♦Z  INcASe  THIS  IS  A 
PUSHUP* 


IN  DP. 


piCK  Up  the  worD  Following  the  given 
addRe^®  aNq  store  it  at  X. 

some  jNdex  and  Miscellaneous  ops  end 
here. 
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0503 


list-processing  interpreter 


USER  IS  OWN  PAGE  NO.  20 


6630  I 601A  0 TCF  DANZIG 
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LIST-PROCESSING  INTERPRETER  USER'S  OwN  PAGE  NO.  ?l 

P0504  sequence  chanqiNs  and  subroutine  callinq  options, 

R0505  THE  Following  operations  are  available  for  sequencing  changing,  branching^  and  calling  subroutines: 


R0507 

1. 

goto 

gO  TO. 

RO^OS 

2. 

CALL 

CALL  subroutine 

setting 

QPRET. 

R0509 

3. 

CGOTO 

computed  go  to. 

R0510 

4. 

CCALL 

COMPUTED  CALL. 

R0511 

7, 

BPL 

Branch 

IF  MPAC 

positive 

OR  ZERO, 

R0512 

8 • 

BZE 

branch 

Ip  mpac 

Zero. 

R0513 

9. 

BMN 

Branch 

IF  MPAC 

NEGATIVE 

NON-zERO, 

0514 

6631 

24  150  0 

CCALL 

I NCR 

LOc 

maintain  LOc  F°R  QPReT  COMPUTATION, 

0515 

6632 

50  150  0 

INDEX 

LOC 

0516 

6633 

3 0000  1 

CAF 

0 

get  base  Address  of  cadr  list. 

O5I7 

6634 

50  102  1 

INDEX 

ADDRWD 

0518 

6635 

6 0000  1 

AD 

0 

ADO  increment. 

0519 

6636 

54  004  1 

T5 

FBANk 

SELECT  DESiRED  CADR. 

0520 

66^7 

7 6425  0 

MASK 

LOWIO 

0521 

6640 

50  000  1 

INDEX 

A 

0522 

6641 

3 2000  0 

CAF 

10000 

0523 

6692 

54  103  1 

-1 

TS 

POLISH 

0524 

6693 

4 6425  0 

CALL 

CS 

LoWlO 

for  Any  of  the  call  options,  make  up  the 

0525 

6699 

6 0150  0 

Ad 

LOc 

Address  of  thf  n^xt  op-code  pair/store 

0526 

6695 

6 0151  1 

AD 

bankset 

CODE  AND  LEAvE  IT  IN  QPREt.  NOTE  THAT 

0527 

6696 

50  104  1 

INDEX 

FIXLOC 

LOWIO  3 2000  . 1, 

052s 

6697 

54  052  1 

TS 

QPRET 

0529 

66»0 

3 0103  0 

GOTO 

CA 

polish 

BASiC  branching  SEQUENCE, 

0530 

6651 

54  004  1 

TS 

FBANK 

0531 

6652 

7 6425  0 

MASK 

LOWIO 

MAKE  yP  ‘2  BIt  SuB-^tJDREss  AND  FALL  INTO 

0532 

6653 

6 7639  1 

AD 

ZK 

fall  tNto  The  iNtpret  entry  unless  the 

O533 

6654 

54  I5O  1 

TS 

LOC 

GIVEN  address  was  IN  ERASABLE,  IN  WHICH 

0534 

6655 

10  004  1 

CCS 

FBANK 

CASE  IT  Is  used  As  the  address  of  the 

0535 

6656 

1 6002  1 

TCF 

INTPRET  42 

branch  address. 

0536 

6657 

1 66&1  1 

TCF 

♦ 2 

0537 

6660 

1 6002  1 

tcf 

INtPREt  +2 
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list-processing  interpreter 


0538 

6661 

4 0150 

1 

CS 

LOC 

0539 

6662 

6 6707 

1 

AD 

EVAC+2K 

05A0 

6663 

10  000 

0 

CCS 

A 

0541 

6664 

3 0104 

1 

CA 

FIXLOC 

0542 

6665 

26  150 

1 

ADS 

LOC 

0543 

6666 

50  150 

0 

INDEX 

LOC 

0544 

6667 

2'6000 

0 

CA 

0 -2000 

0545 

6670 

1 6651 

1 

TCP 

GOTO  +1 

0546 

6671 

50  150 

0 

CGOTO 

INDEX 

LOC 

0547 

6672 

3 0001 

0 

CA 

1 

0548 

6673 

50  102 

1 

INDEX 

addrwd 

0549 

6674 

6 0000 

1 

AD 

0 

0550 

6675 

54  004 

1 

TS 

PBANk 

0551 

6676 

7 6425 

0 

MASK 

LOWIO 

0552 

6677 

50  000 

1 

INDEX 

A 

0553 

6700 

3 2000 

0 

CA 

10000 

0554 

6701 

1 6651 

1 

TCP 

GOTO  ♦! 

0555 

6702 

3 0151 

1 

SWBrAnCH 

CA 

BANKSET 

0556 

6703 

54  004 

1 

TS 

fbank 

0557 

6704 

50  150 

0 

INDEX 

LOC 

0558 

6705 

3 0001 

0 

CA 

1 

0559 

6706 

1 6651 

1 

TCP 

GOTO  ♦! 

o®6o 

67o7 

o^o^s 

0 

EVAC+2K 

DEC 

1q69 

USER'S  OWN  PAGE  NO*  22 

THE  GIVEN  ADDRESS  IS  IN  ERASABLE  - SEE 
IP  relative  to  the  WORK  ArEA, 

Add  fixloc  ip  so. 


(ADDRESS  HAD  BEEN  AUGMENTED  By  2000.) 
ALLOWS  ARBITRARY  INDIRECTNESS, 

computed  go  to,  pick  up  address  op  CADR 
LIST, 

ADD  MODIFIER. 

SELECT  GOTO  ADDRESS, 


WITH  ADDRESS  IN  A, 

SWITCH  instructions  WHICH  ELECT  TO 
BRANCH  COMe  HeRe  TO  DO  SO. 


s1o2A+A5 


275690 

P0561 

r0563 

R0564 

R0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

O^Sj 

0583 
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list-processing  interpreter  user's  OwN  Page  no.  23 

TRjPLe  PReCiSjON  branching  ROUTjNe.  iF  CALLiNg  TC  iS  at  L,  return  jS  as  FOLLOWS! 

L+1  IF  MPAC  Is  GREAtEr  tHAN  ZErO, 

L*2  IF  MPAC  IS  EQUAL  TO  *0  OR  -0, 

L*3  IF  MPAC  IS  LESS  THAN  ZERO, 


6710 

10  UO 

0 

BRANCH 

CCS 

MPAC 

6711 

0 0002 

0 

TC 

Q 

6712 

1 6714 

1 

tcf 

♦ 2 

ON 

ZERO. 

67M 

1 6726 

0 

TCF 

NEG 

6714 

10  141 

1 

CCS 

MpAC  ♦! 

6715 

0 0002 

0 

Tc 

Q 

6716 

1 6720 

0 

TCF 

♦ 2 

6717 

1 6726 

0 

TCF 

NEG 

6720 

10  142 

1 

CCS 

MPAC  *2 

6721 

0 0002 

0 

TC 

Q 

6722 

1 6724 

1 

TCF 

*2 

6723 

1 6726 

0 

TCF 

NEG 

6724 

50  002 

0 

INDEX 

0 

IF 

ALL  THREE  REGISTERS  wERE  +-0. 

6725 

0 0001 

0 

TC 

1 

6726 

50  002 

0 

NEG 

INDEX 

Q 

IF 

FIRST  non-zero  register  WAS  NEGATIVE 

6727 

0 0002 

0 

TC 

2 

673q 

5o  : 

i5q  0 exit 

INDEX  LOC 

LEAVE  INTERPRETIVE  MODE. 

6731 

1 0( 

301  1 

TCF  1 

275690 
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LIsT-PrOCESSING  interpreter  USER'S  OWN  PAGE  NO.  2A 


POSgA 

section 

3 - 

add/subtract 

PACKAGE. 

R0585 

THE 

Following  op^R^''^ions  are  pRqvided  Fqr  adding 

To  and  Subtracting  from  the  multi-purpose  accumulator 

R0587 

MPAC! 

R0588 

1. 

DAO 

Double  precision  add. 

RQ589 

2. 

DSU 

double  PRECISION  SUBTRACT. 

R0590 

3. 

BDSu 

double  Precision  subtract 

FROM. 

R0591 

A, 

tad 

triple  Precision  add. 

R0592 

5, 

VAD 

vector  Add. 

R0593 

6. 

VSU 

Vector  subtract. 

RQ594 

7, 

BVSU 

VECTOR  Subtract  from. 

R0595  THE  iNTERPRETjVE  OVERFLOW  iNDjCATOR  OVFiND  jS  SET  NON-zERO  jF  OVERFLOW  OCCURS  jN  ANy  OF  THE  ABOVE, 


0597 

6732 

0 0006 

1 

VAD 

EXTEND 

05s8 

6733 

5 0102 

1 

INDEX 

addrwd 

0599 

6734 

3 0003 

1 

DCA 

2 

0600 

6735 

20  144 

1 

DAS 

MpAC  *3 

0601 

6y36 

0 0006 

1 

EXTEND 

CHECK  OVERFLOW 

0602 

5737 

1 6741 

1 

BZF 

*2 

0603 

67A0 

0 7006 

0 

TC 

overflow 

060A 

67A1 

0 0006 

1 

EXTEND 

0605 

67A2 

5 0102 

1 

INDEX 

ADDRWD 

0606 

67A3 

3 0005 

1 

DCA 

4 

0607 

67A4 

20  146 

0 

DAS 

MPAC  +5 

0608 

67A5 

0 0006 

1 

EXTEND 

O6O9 

67A6 

1 6750 

1 

BZF 

♦ 2 

0610 

6747 

0 7006 

0 

tc 

overflow 

0611 

6750 

0 0006 

1 

DAD 

EXTEND 

0612 

6761 

5 0102 

1 

INDEX 

ADDRWD 

0613 

6792 

3 0001 

0 

DCA 

0 

0614 

6793 

20  141 

1 

eNdvxv 

das 

MPAC 

VXV  finishes  H| 

0615 

6754 

0 0006 

1 

Extend 

0616 

6755 

1 6014 

0 

BZF 

danziq 

O6I7 

6796 

0 7OO6 

0 

TC 

overflow 

0618 

6757 

1 6014 

0 

tcf 

DANZIG 

275690 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

063g 

0639 

0640 

0641 

0642 
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list.processjNg  interpreter 

USER'S  Own  page  no,  25 

67«>0 

0 0006 

1 

VSU 

Extend 

6761 

5 0102 

1 

INDEX 

ADDRWD 

6762 

4 0003 

0 

DCS 

2 

6763 

20  144 

1 

DAS 

MRAC  +3 

6764 

0 0006 

1 

EXTEND 

6765 

1 6767 

0 

BZF 

♦ 2 

6766 

0 7006 

0 

TC 

OVERFLOW 

6767 

0 0006 

1 

EXTEND 

6770 

5 0102 

1 

index 

ADDRwD 

6771 

4 0005 

0 

DCS 

4 

6772 

20  146 

0 

DAS 

MPAC  *5 

6773 

0 0006 

1 

EXTEND 

6774 

1 6776 

0 

BZF 

♦ 2 

6775 

0 7006 

0 

TC 

overflow 

6776 

0 0006 

1 

DSU 

Extend 

6777 

5 0102 

1 

INDEX 

ADDRWD 

7OOO 

4 0001 

1 

DCS 

0 

7001 

20  141 

1 

DAS 

MPAC 

7002 

0 0006 

1 

EXTEND 

7OO3 

1 6014 

0 

BZF 

DANZIG 

7004 

0 7006 

0 

tc 

OVERFLOW 

7005 

1 6014 

0 

tcf 

DANZIG 

7006 

3 7646 

1 

OVERFLOW 

CAF 

ONE 

subroutine  To  turn  OVFIND  on. 

7007 

1 7130 

0 

tcf 

SeT0Vf2 

275690 

06«3 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

O67I 

0672 

0673 
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JUL  9«  1965 

UST-PROCESSiNg  interpreter  USER'S  Own  Page  no,  26 


7010 

0 0006 

1 

BVSU 

EXTEND 

7011 

5 0102 

1 

INDEX 

ADDRWD 

7012 

3 0003 

1 

DCA 

2 

7013 

52  144 

1 

DXCH 

MPAC  *3 

7014 

0 0006 

1 

EXTEND 

7015 

4 0001 

1 

DCOM 

70l6 

20  144 

1 

DAS 

MpAC  +3 

7017 

0 0006 

1 

EXTEND 

7020 

1 7022 

1 

BZF 

♦ 2 

7021 

0 7006 

0 

tc 

OVERFLOW 

7022 

0 0006 

1 

EXTEND 

70H3 

5 0102 

1 

INDEX 

ADDRWD 

70Z4 

3 0005 

1 

DCA 

4 

7025 

52  146 

0 

DXCH 

MPAC  +5 

7026 

0 O0O6 

1 

EXTEND 

7027 

4 0001 

1 

DCOM 

7030 

20  146 

0 

DAS 

MPAC  +5 

7031 

0 0006 

1 

EXTEND 

7032 

1 7034 

0 

BZF 

♦ 2 

7033 

0 7006 

0 

TC 

overflow 

7034 

0 0006 

1 

BDSU 

EXTEND 

7035 

5 0102 

1 

INDEX 

ADDRWD 

7036 

3 0001 

0 

DCA 

0 

7037 

52  141 

1 

DXCH 

MpAC 

7040 

0 O0O6 

1 

EXTEND 

7O4I 

4 0001 

1 

DCOM 

7042 

20  141 

1 

DAS 

MPAC 

7043 

0 0006 

1 

extend 

7O44 

1 6014 

0 

BZF 

DANZIG 

7045 

0 7006 

0 

tc 

OVERFLOW 

7046 

1 601<^ 

0 

tcf 

OANZIq 

27g690 

p0674 

0675 

0676 

0677 

o678 

067<5 

0680 

0681 

0682 

0683 

0684 

0685 
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UST-PROcESSING 

interpreter 

USER»S  Own  PftGE  NO,  27 

Triple 

PRECISION  ADD 

routine 

7047 

0 0006 

1 

TAD 

EXTEND 

7050 

5 0102 

1 

INDEX 

addrwd 

7051 

3 0002 

0 

OCA 

1 

ADD  MjNOR  parts  FiRST. 

7052 

20  142 

1 

DAS 

MpAC  +l 

7053 

50  102 

1 

INDEX 

ADDRWD 

7054 

6 OOOO 

1 

AD 

0 

7055 

6 0140 

1 

AD 

MpAC 

7056 

54  140 

0 

TS 

MPAC 

7O57 

1 6014 

0 

TCF 

DANZIG 

7060 

54  105 

1 

SETqVF 

TS 

oVFInD 

SET  oVFInD  if  such  qCCURS 

7O6I 

1 6014 

0 

TCF 

DANZIG 
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P0686  ARjThMETiC  subroutines  RE(3UiRED  iN  FiXED-FiXED. 


R0687 

1. 

dmpsub 

double  precision 

Multiply,  Multiply  the  contents  of  mpac,+i  by  the  dp  word  whose  address 

R0689 

iS  iN  ADDRWD 

AND 

LEAVE  A 

triple 

PRECISION  RESULT  iN  MPAC, 

R0«>91 

2. 

ROUNDsUB 

round 

the  triple 

PRECISON  contents  OF  MpAC 

TO  DOUBLE  PRECISION, 

R0693 

3. 

OOTSUB 

take 

THE  DOT 

PRODUCT  OF 

the  vector  in  MPAC 

AND  the  vector  WHOSE  ADDRESS  IS  iN  ADDRWD 

R0695 

and  leave  the 

: triple  precision  result  in  MpAC. 

R0696 

A, 

POUY 

USING 

THE  CONTENTS  OF  MpAC  AS  A 

Dp  Argument 

» Evaluate  the  polynomial  whose  degree  and 

R0698 

coefficients 

immediately  follow 

the  tc  poly 

INSTRUCTION  (SpE  ROUTINE  FOR  DETAILS,) 

0700 

7062 

50  002 

0 

dMp 

INDEX 

0 

BASIC  subroutine  pOR  USE  BY  PINBALL,  e^C 

0701 

7063 

3 0000 

1 

CAF 

0 

ADRES  OF  Argument  follows  tc  dmp  , 

0702 

7064 

24  002 

0 

INCR 

Q 

O7O3 

7O65 

54  102 

0 

-1 

T5 

ADDRWD 

(PROLOGUE  FOR  SETTING  ADDRWD,) 

070A 

7066 

50  102 

1 

DMpSUB 

Index 

ADDRWD 

GET  minor  P*RT  oR  operand  At  C(ADDRWD), 

0705 

7067 

3 0001 

0 

CA 

1 

0706 

7070 

54  142 

1 

ts 

MPAC  +2 

this  works  for  squaring  MPAC  As  WELL, 

0707 

7071 

3 7653 

0 

CAc 

Zero 

Set  MPAC  ♦!  TO  Zero  so  we  can  accumulate 

O7O8 

7072 

56  lAl 

0 

xch 

MPAC  *1 

THE  PARTIAL  PRODUCTS  WITH  DAS 

0709 

7073 

5A  121 

1 

TS 

MpTEMP 

instructions. 

0710 

7074 

0 0006 

1 

EXTeNd 

O7II 

7O75 

7 0142 

1 

MP 

MPAC  +2 

MINOR  OF  MPAC  X MINOR  OF  C(ADDRWD), 

0712 

7076 

56  142 

0 

XCH 

MPAC  *2 

discard  minor  part  qR  aBove  result  And 

0713 

7077 

0 0006 

1 

EXTEND 

FORM  MAJOR  OF  MPAC  X MINOR  OF  C(ADDrWD), 

071A 

7100 

7 0140 

0 

MP 

MpAC 

0715 

7101 

20  142 

1 

DAS 

MpAC  *1 

guaranteed  NO  OVERFLOW, 

0716 

7102 

50  102 

1 

INDEX 

ADDR^|/D 

get  major  part  of  argument  At  C(ADDRwD), 

0717 

7103 

3 0000 

1 

CA 

0 

0718 

7104 

56  121 

0 

XCH 

MpTEMP 

SAVE  AND  BRING  OUT  MINOR  OF  MPAC, 

0719 

7105 

0 0006 

1 

EXTEND 

0720 

7106 

7 0121 

1 

Mp 

MpTEMp 

major  of  C(ADDrWD)  X minor  of  MpAC, 

0721 

7107 

20  142 

1 

das 

MPAC  ♦! 

accumulate*  Setting  a to  neT  oveRfLow, 

0722 

7110 

56  140 

1 

XCH 

MpAC 

setting  MpAC  TO  0 OR  *-l. 

0723 

7111 

0 0006 

1 

cXTeNd 

O72A 

7112 

7 OlZl 

1 

MP 

MPTEMP 

MAJOR  of  MPAC  X MAJOR  OF  C (ADDRWD), 

0725 

7113 

20  141 

1 

DAs 

MpAC 

GuArAntEed  no  overflow. 

0726 

7114 

0 0002 

0 

TC 

Q 

49  MCT  » .573  MS,  INCLUDING  RETURN, 
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LIsT-PROCESSING  interpreter  USER'S  O^N  PAGE  NO.  j9 


P0727 

round  mpac  to  double 

PREClSjON 

t SeTTiNq  OVFiND 

ON  The  rare 

event  Of  overflow. 

0729 

7115 

3 7653 

0 

ROuNDsuB  caf 

zero 

set  mpac  92  to  zero  for  scalars. 

0730 

7ll6 

56  192 

0 

VROUNd 

XCH 

MpAc  +2 

BUT  We  Neednt  take  the  time  pOR  Vectors, 

0731 

7117 

6 0000 

1 

DOUBLE 

0732 

7120 

59  001 

1 

TS 

L 

0t33 

7121 

0 0002 

0 

TC 

0 

0739 

7122 

6 0191 

0 

AD 

MpAC  ♦! 

ADD  roUNDING  BIT  IF  MpAC  *2  WAS  GrEATEr 

0735 

7123 

59  191 

1 

TS 

MpAC  ♦! 

than  .5  IN  magnitude* 

0736 

7129 

0 0002 

0 

TC 

Q 

0737 

7125 

6 0190 

1 

Ad 

mpac 

PROPAqATe  interflow. 

0738 

7126 

59  190 

0 

TS 

MPAC 

0739 

7127 

0 0002 

0 

TC 

Q 

0790 

7i30 

59  io5 

1 

SET0VF2 

TS 

OVFIND 

(RARE). 

0791 

7131 

0 0002 

0 

TC 

0 

275690 


P0742 

R0744 

R07<i6 


0748 

0749 


0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 
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list-processing  interpreter  USER'S  OWN  PACE  NO.  30 

The  dot  Product  subroutine  usually  forms  the  dot  product  of  The  vector  iN  mpac  with  a standard  sjx 
register  vector  whose  address  is  in  ADDRwD.  in  this  case  C(DoTINC)  Are  set  to  2.  VXM,  however,  sets  C(DOTINC)  to 
6 sO  that  DOtSu0  OOtS  MpAC  WItH  A C0Lu«N  VECTOR  OF  tHE  MAtRIX  IN  QuESTION  IN  tHIS  CAsE, 


7132 

3 7645 

1 

predot 

CAF 

TwO 

7133 

54  122 

1 

ts 

DOTINC 

7134 

0 0006 

1 

DOTSUB 

EXTEND 

7135 

22  123 

1 

QXCH 

DOTRET 

7136 

0 7066 

0 

TC 

DMPSUB 

7137 

52  144 

1 

DXCH 

MpAC  ♦S 

7140 

52  141 

1 

DXCh 

MpAC 

7141 

52  115 

0 

DXCH 

BUF 

7142 

3 0142 

0 

CA 

MPAC  +2 

7143 

54  116 

0 

TS 

BUF  *2 

7I44 

3 0122 

0 

CA 

DOTINC 

7145 

26  102 

0 

ADS 

ADDRWD 

7146 

0 7066 

0 

TC 

DMPSUB 

7147 

52  142 

1 

DXCH 

MPAC  *1 

7150 

20  116 

0 

DAS 

BUF  +1 

7151 

6 0140 

1 

AD 

MPAC 

7152 

6 0114 

0 

AD 

BUF 

7153 

54  114 

1 

TS 

BUF 

7154 

1 7156 

0 

TCF 

♦ 2 

7155 

54  105 

1 

TS 

OVfIND 

7156 

52  146 

0 

DXCH 

MpAC  +5 

7157 

52  141 

1 

dxch 

MPAC 

7160 

3 0122 

0 

CA 

DOTINC 

7161 

26  102 

0 

ADS 

ADDRWD 

7162 

0 7066 

0 

TC 

DMPSUB 

7163 

52  116 

0 

ENDDOt 

DXCH 

BijF  ♦! 

7164 

20  142 

1 

DAS 

MPAC  +1 

7U5 

6 OI4O 

1 

AD 

MPAC 

7166 

6 0114 

0 

AD 

BuF 

7167 

54  140 

0 

TS 

MPAC 

7I7O 

0 0123 

1 

TC 

DOTRET 

7171 

54  105 

1 

TS 

OVFInD 

7172 

0 0123 

1 

Tc 

dOTReT 

prologue  to  set  DotINC  to  2. 


SAVE  return, 

DOT  X COMPONENTS, 

POSITION  Y component  OF  MpAC  FOR 

multiplication  While  saving  result  iN 

THREE  WORD  BUFFER,  BUF. 


advance  addrwd  to  y component  of 
Other  argument. 

accumulate  partial  products. 


If  overflow  occurs. 
MULTIPLY  z Components. 


LEAyE  FINAL  ACCuMuLAtION  IN  MpAC, 


ON  qVErFLoW  HErE, 
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list-processing  interpreter  useris  Own  p^ge  no, 


p0781 

Double  precision  polynomial  evaluator 

' • 

R0782 

N 

N-1 

RQ783 

THIS 

routine  EVALUATES  A x 

♦ 

A X 

+ t • • ♦ 

A X ♦ A leaving 

THE  Dp  result  in  MPAC  ON  EXIT. 

r0785 

N 

N-1 

1 0 

R0786 

IT  IS  assumed 

THAT  X arrives 

jN  MpaC 

and  N and 

the  coefficients  iN  the 

calliNq  Sequence  as  fallows! 

A0788 

L 

TC 

POLY 

A0789 

L*1 

DEC 

N-1 

Ao790 

L + 2 

2DEC 

A(0) 

A0791 

* , • 

A0792 

L*2N*2 

2DEC 

A(N) 

RETURN  IS  TO  L+2N+4. 

0793 

7173 

3 7662 

1 

POLy 

CAF 

LvBUF 

INCOMING  X WILL  BE  STORED  IN  V^UF,  SO 

0794 

7174 

54  102 

0 

TS 

addrwo 

set  addrwo  so  DMPSUB  WILL  MPY  BY  VBUF, 

0795 

7175 

50  002 

0 

INDEX 

0 

0796 

7176 

3 0000 

1 

CAF 

0 

0797 

7177 

54  124 

1 

TS 

POLYCNT 

N-1  TO  COUNTER. 

0798 

7200 

6 0000 

1 

DOUBLE 

0799 

7201 

6 0002 

0 

AD 

□ 

0800 

7202 

54  125 

0 

TS 

POLYRET 

SAVE  L+2N.1  for  RETURN 

0801 

7203 

54  103 

1 

TS 

POLISH 

AND  FOR  referencing  COEFFICIENTS. 

0802 

7204 

0 0006 

1 

extend 

0s03 

7205 

5 0000 

1 

INDEX 

A 

LOAD  AIN)  INTO  MPAC,  SAVING  MPAC  IN 

0804 

7206 

3 0004 

0 

DCA 

3 

VBuF. 

0805 

7207 

52  141 

1 

DXCh 

MPAC 

0806 

72i0 

52  IO7 

0 

DXCH 

VBUF 

0807 

7211 

1 7215 

1 

TCF 

P0LY2 

NO  ZErO-OrDEr  polynomials  ALLOWED, 

OsOs 

7212 

54  124 

1 

polyloop  TS 

POLYCNT 

SAVE  decremented  LOOP  COUNTER, 

0809 

7213 

4 7645 

0 

Cs 

TWO 

regress  coefficient  pointer. 

0810 

7214 

26  103 

1 

ADS 

POLjSh 

0811 

7215 

0 7066 

0 

P0Ly2 

TC 

DMPSUB 

multiply  By  X, 

0812 

7216 

0 0006 

1 

EXTEND 

0el3 

7217 

5 0103 

0 

INDEX 

POLISH 

ADO  IN  NEXT  COEFFICIENT. 

0814 

7220 

3 0002 

0 

DCA 

1 

0815 

7221 

20  141 

1 

DAS 

MPAC 

NO  check  for  OVERFLOW  SINCE  SiN,  ETC,, 

A0816 

SHOULD  not  OVERFLOW. 

0817 

7222 

10  124 

1 

CCS 

POLYCNT 

LOOP  oN  Counter, 

0818 

7223 

1 7212 

0 

TcF 

POLYLOOP 

0819 

7224 

50  125 

1 

INDEX 

POLyRET 

DONE  - return  to  CALLER  Ay  L+2N.4, 

0820 

7225 

0 0005 

1 

FIVE 

TC 

5 
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0823 

7226 

0 0006 

1 

TPAgREE 

extend 

FORCE  SIGN  agreement  AMONG  THE  TRIPLE' 

0829 

7227 

22  119 

0 

qxch 

BUF 

PRECISION  CONTENTS  OF  MPAC.  RETURNING 

0825 

7230 

0 6710 

1 

TC 

Branch 

WITH  THE  SIGNUM  OF  THE  INPUT  IN  A, 

0826 

7231 

1 7235 

0 

TCP 

ARQ+ 

0827 

7232 

1 7255 

0 

TCF 

ARGZERO 

0028 

7233 

9 7626 

0 

CS 

POSMAX 

IF  NEGATIVE. 

0829 

7239 

1 7236 

0 

TCF 

+ 2 

0830 

7235 

3 7626 

1 

ARQ  + 

CAF 

POSMAX 

0831 

7236 

59  115 

0 

♦ 2 

TS 

BUF  ♦! 

0832 

7237 

0 0006 

1 

extend 

0b33 

7290 

29  000 

1 

AUG 

A 

FORMS  '.-1,0. 

0839 

7291 

6 0192 

0 

AD 

MpAC  +2 

0835 

7292 

59  192 

1 

TS 

MPAC  +2 

0836 

7293 

3 7653 

0 

CAF 

ZERO 

0837 

7299 

6 0115 

1 

AD 

BuF  ♦! 

0838 

7295 

6 0191 

0 

AD 

MPAC  +1 

0839 

7296 

59  I9l 

1 

TS 

MPAC  ♦! 

0890 

7297 

3 7653 

0 

CAF 

ZERO 

0891 

7250 

6 0115 

1 

AD 

BUF  ♦! 

0892 

7251 

6 0190 

1 

AD 

MPAC 

0893 

7252 

59  I9O 

0 

ARGZER02 

TS 

MPAC 

ALWAYS  skipping  UNLESS  ARGZErO. 

0899 

7253 

59  191 

1 

TS 

MPAC  ♦! 

0895 

7259 

0 0119 

0 

TC 

BUF 

RETURN, 

0896 

7255 

59  192 

1 

ARGzERO 

TS 

MPAC  +2 

set  all  three  mpac  registers  T°  ZERO. 

0897 

7256 

1 7252 

1 

TCF 

ARGZER02 

0098 

shortmp  Multiplies  the  tp  contents  of  mpac  By  ■ 

THE  single 

PRECISION  Number  Arriving  in  a. 

0850 

7257 

59  121 

1 

Shortmp 

TS 

MPTEMP 

0s5l 

7260 

0 0006 

1 

EXTEND 

0852 

7261 

7 0192 

1 

MP 

MPAC  +2 

0853 

7262 

59  192 

1 

TS 

MPAC  +2 

0859 

7263 

3 7653 

0 

CAF 

ZERO 

SO  SUBSEQUENT  DAS  WILL  WORK, 

0855 

7269 

56  191 

0 

xch 

MpAC  *1 

0856 

7265 

0 0006 

1 

extend 

0857 

7266 

7 0121 

1 

MP 

MPTEMP 

0858 

7267 

20  192 

1 

DAS 

MPAC  ♦! 

0859 

7270 

56  190 

1 

XCH 

MPAC 

SETTING  mpac  TO  0, 

0860 

7271 

0 0006 

1 

EXTEND 

0861 

7272 

7 0121 

1 

MP 

MPTEMP 

0862 

7273 

20  191 

1 

DAS 

MPAC 

0863 

7279 

0 0002 

0 

TC 

Q 

275690 

yul  system 
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USER'S  oWn  pAGE  NO*  33 

Po86<* 

miscellaneous  vector  operations 

, included 

here  Are  the  FOLLOWING! 

R0865 

1, 

DOT 

DP  vector 

DOT  PRODUCT, 

R0866 

2. 

VXV 

DP  vector 

CROSS  PRODUCT. 

R0867 

3. 

vxsc 

DP  vector 

TIMES  SCALAR, 

R0868 

A. 

V/SC 

DP  vector 

DIVIDED  BY  SCALAR. 

Ro869 

5. 

VPROJ 

DP  vector 

PROJECTION,  ( (MPAC.X)MPAC 

I, 

R0870 

6» 

VXM 

Dp  VECTOR 

pOST-MULTIpLIED  By  MATRIX. 

R0871 

7. 

MXV 

DP  VECTOR 

PRE-MULTIPLIED  BY  MATRIX, 

0872 

7275 

0 7132  0 DOT 

Tc 

PREOOT 

DO  THE  dot  PRODUrT  aND  EXIT,  cHaNOING 

0873 

7276 

3 7653  0 

CAF 

ZERO 

THE  MODE  TO  DP  SCALAR, 

0874 

7277 

1 6013  1 

TCF 

NEWMODE 

0875 

7300 

3 7645 

1 

mxv 

CAF 

TWO 

SET  UP  mATInC  AmD  DOTImC 

FOR  ROW 

0876 

7301 

54  124 

1 

TS 

MATINC 

vectors. 

0877 

7302 

1 7306 

1 

TCF 

VXM/MXV 

GO  jO  common  portion. 

0878 

7303 

4 7650 

1 

VXM 

cs 

TEN 

SET  MATINC  AND  DOTINC  TO 

refer  to  matrix 

0879 

7304 

54  124 

1 

TS 

matinc 

AS  three  column  vectors. 

0880 

7305 

3 6162 

1 

CAF 

SIX 

275690 

P0881 

0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

089° 

0891 

0892 

0893 

0894 

0895 

q896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

O9O6 

0907 

0908 

89?0 

0911 

0912 
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COMMON  PORTION  OF  MXV  AND  VXM, 


7306 

54  122 

1 

VXM/MXV  TS 

DOT  INC 

7307 

0 7475 

0 

TC 

MPACVBUf 

SAVE  VECTOR  IN  MPAC  fOR  FURThER  USE. 

7310 

0 7134 

0 

TC 

DOTsUB 

GO  DOT  TO  get  X COMPONENT  OF  ANjWER. 

7311 

0 0006 

1 

extend 

7312 

3 0107 

1 

DCA 

V0UF 

MOVE  MPAC  vector  BACK  INTO  MpAC,  SAVING 

7313 

52  141 

1 

DXCH 

MpAC 

NEW  X COMPONENT  IN  BuF2. 

7314 

52  120 

0 

DXCh 

BUF2 

7315 

0 0006 

1 

extend 

73I6 

3 0111 

0 

DCA 

VBUF  *2 

7317 

52  144 

1 

DXCH 

MPAC  +3 

7320 

0 0006 

1 

EXTEND 

7321 

3 0113 

1 

DCA 

VBUF  +4 

7322 

52  146 

0 

DXCH 

MPAC  »5 

7323 

3 0124 

0 

CA 

MATiNC 

lNiTlALi2E  addrwd  FOR  NEXT  DOT  PRODUCT. 

7324 

26  lo2 

0 

ADS 

addrwd 

FORMS  BASE  ADDRESS  OF  NEXT  COLUMN (ROW). 

7325 

0 7134 

0 

TC 

nOTSUB 

7326 

52  167 

0 

DXCH 

VBUF 

MOVE  GIVEN  VECTOR  BACK  TO  MPAC,  SAVING  Y 

7327 

52  141 

1 

DXCH 

MpAC 

component  of  answer  in  VByF  +2. 

7330 

52  111 

1 

DXCh 

V0UF  +2 

7331 

52  144 

1 

DXCH 

MPAC  *3 

7332 

52  113 

0 

DXCH 

VBUF  *4 

7333 

52  146 

0 

DXCH 

MpAC  *5 

7334 

3 0124 

0 

CA 

MATINC 

FORM  ADDRESS  OF  LAST  COLUMN  OR  ROw. 

7335 

26  102 

0 

ADS 

ADDRWD 

7336 

0 7134 

0 

TC 

DOTSUB 

7337 

52  120 

0 

DXCH 

ByF2 

answer  NOW  Complete.  Put  components  into 

7340 

52  141 

1 

DXCh 

MPAC 

PROPER  MPAC  registers. 

7341 

52  146 

0 

DXCH 

MpAC  +5 

7342 

52  111 

1 

DXCH 

VBUF  +2 

7343 

52  144 

1 

dXch 

MPAC  +3 

7344 

1 6014 

0 

TCF 

DANziG 

Exit. 

275690 

P0913 

OgH 

0915 

0916 

O9I7 

0918 

0919 

0920 

0921 

O922 

0923 

0929 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 


YUL  SYSTEM  FOR  BLKzI  REVISION  0 OF  PROGRAM  rEjREDa^  BY  NAsA  2021100  JUU  91  1965  (MAIN)  PAGE  51 

LiST-PROCESSjNe  jNteRPReTER  USeR'S  Own  page  NO,  35 

vxsc  - vecjor  jIMEs  scalar. 


7395 

10  197 

1 

vxsc 

CCS 

MODE 

TEST  present  mode. 

7396 

1 7372 

1 

TCF 

DyXSC 

separate  routine  when  scalar  is  in  MPAC, 

7397 

1 7372 

1 

TCF 

DVXSC 

7350 

0 7O66 

0 

vvxsc 

TC 

dmpsub 

COMPUTE  X COMPONENT 

7351 

0 7116 

0 

tc 

vROuND 

AND  round  it. 

7352 

52  199 

1 

dxch 

MpAC  +3 

PUT  Y component  iNTO  MpAC  SAViNq  MPAC  jN 

7353 

52  l9l 

1 

OXCH 

MpAC 

MPAC  t3. 

7359 

52  199 

1 

DXCH 

MpAC  +3 

7355 

0 7066 

0 

TC 

DMPSUB 

DO  same  for  y and  z components. 

7356 

0 7116 

0 

tc 

VROyND 

MPAC  *5 

7357 

52  196 

0 

DXCh 

7360 

52  19l 

1 

DXCH 

MPAC 

7361 

52  196 

0 

DXCH 

MpAC  +5 

7362 

0 7066 

0 

TC 

DMPSUB 

7363 

0 7116 

0 

TC 

vROyND 

7369 

52  191 

1 

VROTATEX 

DXCH 

MPAC 

EXIT  USED  TO  RESTORE  MPAC  AFTER  THIS 

7365 

52  196 

0 

dxch 

MpAC  *5 

TYPE  OF  rotation,  CALLED  BY  VECTOR  SHiFT 

7366 

52  199 

1 

DXCH 

MpAC  +3 

right,  v/sc,  etc. 

7367 

52  191 

1 

d^ch 

MPAC 

7370 

1 6ol9 

0 

TCF 

DANZIG 
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P093A  bp  vector  PROJECTION  ROUTINE. 


0935 

7371 

0 7132 

0 

VPROJ 

TC 

predot 

!Mpac.x)mpac  IS  computed  and  Left  in 

A0936 

MPAC.  do  dot  and  fall  into  DVXSC. 

R0937 

vxsc  wheN  Scalar  arrives  in 

MPAC  AND 

vector  IS 

AT  X. 

0938 

7372 

0 0006 

1 

DVXSC 

EXTEND 

SAVE  scalar  in  MPAC  *3  AnD  GET  X 

0939 

7373 

3 0141 

0 

DCA 

MpAC 

component  of  answer. 

0940 

7374 

52  144 

1 

DXCH 

MpAC  43 

0941 

7375 

0 7066 

0 

TC 

DMPSUB 

0942 

7376 

0 7116 

0 

TC 

VROUND 

0943 

7377 

3 7645 

1 

CAP 

TWO 

advance  ADDRWD  TO  Y COMPONENT  OF  X. 

0944 

7400 

26  102 

0 

ADS 

ADDRWD 

0945 

7401 

0 0006 

1 

EXTEND 

0946 

7402 

3 0144 

0 

dca 

MpAc  +3 

PUT  Scalar  back  into  mpac  and  save 

0947 

7403 

52  I4l 

1 

DXCH 

MPAC 

X result  in  mpac  *5, 

0948 

7404 

52  146 

0 

OXCH 

MPAC  +5 

0949 

7405 

0 7066 

0 

TC 

DMPSUB 

0950 

7406 

0 7116 

0 

TC 

VrOUND 

O95I 

7407 

3 7645 

1 

CAF 

TWO 

0952 

7410 

26  102 

0 

ADS 

ADDRWD 

TO  Z component. 

0953 

7411 

52  144 

1 

DXCh 

MPAC  *3 

BRING  scalar  back,  PUTTiNq  Y RESULT  jN 

0954 

7412 

52  14l 

1 

DXCH 

MPAC 

THE  PROPER  PLACE. 

0955 

7413 

52  144 

1 

DXCH 

MpAC  +3 

0956 

7414 

0 7066 

0 

TC 

DMPSUB 

0957 

7415 

0 7116 

0 

TC 

VROUND 

0958 

74I6 

52  141 

1 

DXCH 

MpAC 

PUT  z component  in  proper  place,  also 

0959 

74I7 

52  146 

0 

DXCH 

MPAC  +5 

positioning  X. 

0960 

74Z0 

52  141 

1 

DXCH 

MpAC 

0961 

7421 

4 7646 

0 

CS 

ONE 

mode  has  changed  to  vector. 

0962 

7422 

1 6013 

1 

TCF 

newmode 
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The  vector  CrqSS  product  routine  calculates  (X  m -X  M «X  M -X  m .X  M -X  M ) WHErE  M IS  THE  vector  in 

32  23  13  31  21  12 

MPAC  and  X THE  VECTOR  AT  THE  GIVEN  ADDRESS, 


0968 

7423 

0 0006 

1 VXV 

EXTEND 

0969 

74Z4 

3 0146 

1 

DCA 

MpAC  +5 

FORM  UP  M3xl,  LEAVING  Ml  IN  v^UF, 

0970 

7425 

52  141 

1 

DXCH 

MPAC 

O97I 

74?6 

52  IO7 

0 

DXCH 

VBUF 

0972 

7427 

0 7066 

0 

TC 

DMPSUB 

BY  XI, 

O973 

7430 

0 0006 

1 

EXTEND 

0974 

7431 

4 0144 

1 

DCS 

MpAC  *3 

calculate  -x1M2»  SAVING  xlM3  IN  vBUF  *i 

0975 

7432 

52  141 

1 

DXCH 

MPAC 

0976 

7433 

52  111 

1 

DXCH 

VBUF  +2 

0977 

7434 

0 7066 

0 

TC 

DMPSUB 

0978 

7935 

3 7645 

1 

CAF 

TWO 

ADVANCE  ADDRWD  TO  X2, 

0979 

7436 

26  102 

0 

ADs 

AODRWD 

0980 

7437 

0 0006 

1 

extend 

Ogal 

7440 

4 01i>6 

0 

DCS 

MPAC  +5 

prepare  TO  GET  -X2M3i  SAVING  -X1M2  IN 

0982 

7441 

52  141 

1 

DXCH 

MpAC 

MPAC  45, 

0983 

7442 

52  146 

0 

DXCh 

MPAC  +5 

09g4 

7443 

0 7O66 

0 

TC 

DMPSUB 

0985 

7444 

0 0006 

1 

EXTEND 

0986 

7445 

3 0107 

1 

DCA 

VBUF 

GET  X2Mlt  saving  -X2M3  IN  VBUF  +4, 

0987 

7446 

52  141 

1 

DXCH 

MpAC 

0988 

7447 

52  113 

0 

DXCh 

VBUF  +4 

0989 

7450 

0 7066 

0 

TC 

DMPSUB 

0990 

7451 

3 7645 

1 

CAF 

TWO 

advance  addrv/D  to  x3« 

0991 

7452 

26  102 

0 

ADS 

AODRWD 

0992 

7453 

0 0006 

1 

EXTEND 

0993 

7454 

4 0107 

0 

DCS 

VBUF 

GET  -x3Ml,  ADDING  x2Ml  TO  MPAC  *5  TO 

0994 

7455 

52  141 

1 

DXCh 

MpAC 

complete  The  z component  of  The  answer 

099; 

7456 

20  146 

0 

DAS 

MPAC  +5 

0996 

7457 

0 0006 

1 

EXTEND 

0997 

7460 

1 7462 

1 

BZF 

♦ 2 

0998 

7461 

0 7006 

0 

tc 

overflow 

2?5690 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

RlOlO 

1012 

1013 

lOU 

1015 

1016 

I0l7 

1018 

1019 

1020 

1031 
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USERIS  OWN  Page  no,  38 

7462 

0 7066 

0 

TC 

DMPSUB 

7463 

52  111 

1 

DXCH 

VBUF  +2 

move  XIM3  to  MPAC  43  SpTTING  UP  FOR  ; 

X3M2 

7464 

62  144 

1 

DXCH 

MpAC  43 

AND  ADO  -X3M1  TO  MPAC  43  TO  COMPLETE 

THE 

7465 

52  141 

1 

DXCH 

MPAC 

Y COMPONENT  OF  THE  RESULT. 

7466 

20  144 

1 

DAS 

MPAC  +3 

7467 

0 0006 

1 

extend 

7470 

1 7472 

0 

BZp 

♦ 2 

7471 

0 7006 

0 

TC 

overflow 

7472 

0 7066 

0 

TC 

DMPSUB 

7473 

52  113 

0 

DXCH 

VBUF  44 

GO  Add  -X2m3  to  X3M2  to  complete  the 

X 

7474 

1 6753 

1 

TCF 

ENDVXV 

component  (TAIL  END  OF  DAO). 

THg  MPAcVBUF  subroutine  SAVeS  THe  VeCTOR  IN  MpAc  IN  VBUF 

WITHOUT  clobbering  MPAc. 

7475 

0 0006 

1 MPACVBUF 

EXTEND 

CALLED  BY  MXV.  VXM,  AnD  UNIT, 

7476 

3 0141 

0 

DCA 

MPAC 

7477 

52  107 

0 

DXCH 

VBUF 

7500 

0 0006 

1 

extend 

7501 

3 0144 

0 

DCA 

MPAC  43 

7502 

52  111 

1 

DXCH 

VBUF  42 

7503 

0 0006 

1 

extend 

7504 

3 0146 

1 

DCA 

MPAC  45 

75O5 

52  113 

0 

DXCH 

VBUF  44 

7506 

0 0002 

0 

tc 

0 

return  to  CALLER. 
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LiST.PROCESSiNg  interpreter  USER'S  Own  page  NC.  39 

P1022  interpretive  instructions  w^ose  Execution  consists  of  principally  calling  subroutines. 


1024 

7507 

0 7066 

0 

dMpi 

TC 

OMPSUB 

nMP  instruction. 

1029 

7510 

1 6014 

0 

TCF 

DANZIG 

1026 

7511 

0 7066 

0 

dmpr 

TC 

dmpsus 

1027 

7512 

0 tU5 

0 

TC 

ROUNDSUB 

1028 

7513 

1 601A 

0 

tcf 

DANZIG 

1029 

1030 

7514 

0 0006 

1 

DDV 

EXTEND 

75I5 

5 0102 

1 

INDEX 

ADDRwD 

MOvE  dividend  into  ByF, 

1031 

7516 

3 0001 

0 

DCA 

0 

1032 

7517 

1 752A 

1 

TCF 

BDDV  +4 

1033 

7520 

0 0006 

1 

BDDV 

EXTEND 

move  divisor  into  MPAC  saving  MpAC,  The 

1034 

7521 

5 0102 

1 

INDEX 

ADDRWD 

dividend,  in  BuF. 

1035 

7522 

3 0001 

0 

DCA 

0 

1036 

7323 

52  141 

1 

DXCH 

MPAC 

1037 

7524 

52  115 

0 

,4 

DXCH 

BUF 

1038 

7525 

3 7653 

0 

CAF 

ZERO 

divide  routines  in  BANx  0, 

1039 

7526 

54  004 

1 

T5 

F8ANK 

1040 

7527 

1 2332 

0 

tcf 

DOV/BDDV 

IO4I 

7530 

3 0102 

1 

SETPD 

CA 

addrwd 

anywhere  in  erasable  in  general,  but 

1042 

7531 

54  152 

0 

T5 

PySHLOC 

almost  always  in  the  work  area. 

1043 

7532 

1 6014 

0 

TCF 

DANZjG 

1044 

7533 

3 7653 

0 

TSLC 

CAF 

ZERO 

shifting  routines  located  in  bank  00. 

1045 

7534 

54  OOA 

1 

TS 

FBANk 

1046 

7535 

1 2153 

0 

TCF 

TSLCZ 

1047 

7536 

3 6027 

1 

GSHIFT 

CAF 

LqWI 

USED  AS  mask  at  CEnSHIFT.  THIS  prqCESSES 

1048 

7537 

54  004 

1 

TS 

FbANK 

any  shift  instruction  (except  TSLc)  with 

1049 

75‘*0 

1 2174 

0 

TCF 

genshift 

AN  address  (ROUTINES  IN  BANK  OS. 

275690 

P1050 

R10S2 

R1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

IO7I 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

IO79 
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LIsT-PROCEsSING  interpreter  USER'S  Own  page  NOt  4o 

The  following  iS  the  prologue  to  v/sc,  if  the  present  mode  jS  vector,  it  saves  The  scalar  at  x iN  buf 

AND  CALLS  THE  V/SC  ROUTINE  IN  BANK  0,  iF  THE  PRESENT  MODE  IS  SCALAR,  IT  MOVES  THE  VECTOR  AT  X INTO  MPAC,  SAVING 
the  scalar  in  MPAC  IN  BuF  BEFORE  CALLING  THE  V/SC  ROUTINE  IN  BANK  0. 


7541 

10  147 

1 

V/SC 

CCS 

MODE 

7542 

1 7553 

1 

TCF 

DV/SC 

7543 

1 7553 

1 

TCF 

ov/sc 

7544 

0 0006 

1 

VV/SC 

EXTEND 

7545 

5 0102 

1 

index 

AddRWD 

7546 

3 0001 

0 

DCA 

0 

75?7 

52  115 

0 

V/SCl 

DXCh 

BUF 

7550 

3 7653 

0 

CAF 

ZERO 

7551 

54  004 

1 

TS 

FBANK 

7552 

1 2576 

0 

TCF 

v/scz 

7553 

0 0006 

1 

dv/sc 

EXTEND 

7554 

5 0102 

1 

INDEX 

ADDRwD 

7555 

3 0003 

1 

DCA 

2 

7556 

52  144 

1 

DXCH 

MPAC  +3 

7557 

0 0006 

1 

EXTEND 

7560 

5 0102 

1 

INDEX 

ADDRWD 

7561 

3 0005 

1 

DCA 

4 

7562 

52  146 

0 

DXCH 

MpAC  +5 

7563 

4 7646 

0 

cs 

ONE 

7564 

54  147 

1 

TS 

MODE 

7565 

0 0006 

1 

extend 

7566 

5 0102 

1 

INDEX 

ADDRWD 

7567 

3 0001 

0 

DCA 

0 

7570 

52  141 

1 

DXCH 

MPAC 

757I 

1 7547 

1 

TCF 

V/SCl 

MOVE  vector  into  MPAC, 


IN  BOTH  CASES,  VECTOR  iS  NOW  IN  MpAC  AND 
scalar  IN  BUF, 


CHANGE  mode  TO  VECTOR, 


FINISH  prologue  At  COMMON  SECTION, 
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LiST-PROCESSiNq  interpreter  USER'S  OWN  PAgE  no.  41 


P1080 

5IGN  AND  complement 

instructions. 

1081 

75T2 

50  102  1 SIgN 

index 

AddRWD 

CALL  COMP  INSTRUCTION  ip  wORd  AT 

1082 

7573 

10  000  0 

CCS 

0 

NEGATIVE  NON-ZERO. 

1083 

7574 

1 601^  0 

TCF 

DANZIG 

lOfiA 

7575 

1 7577  1 

TCF 

+ 2 

1085 

7576 

1 7605  1 

tcf 

CoMp 

Do  tme  Complement, 

1086 

7577 

50  102  1 

index 

addRWd 

1087 

7600 

10  001  1 

CCS 

1 

1088 

7601 

1 SOl'f  0 

TCF 

DANZIG 

1089 

7602 

1 601<4  0 

TCF 

DANZIG 

1090 

7603 

1 7605  1 

TCF 

COMP 

IO9I 

7604 

1 SOl'^  0 

TCF 

DANZiG 

1092 

7605 

0 0006 

1 

CoMp 

extend 

CqMpLEmEnT  Dp  MpAC  i^j  EVERY  CASE 

1093 

7606 

4 0141 

1 

DCS 

MpAC 

1094 

7607 

52  lAl 

1 

OXCH 

MPAC 

1095 

7610 

10  147 

1 

CCS 

MODE 

either  complement  MPAC  .3  OR  THE 

1096 

7611 

1 7622 

1 

TCF 

DCOMP 

the  vector  accumulator. 

1097 

7612 

1 7622 

1 

tcf 

DCOMP 

1098 

7613 

0 0006 

1 

Extend 

vector  complement. 

1099 

7614 

4 0144 

1 

DCS 

MPAC  +3 

1100 

76l5 

52  144 

1 

DXCH 

MpAC  +3 

1101 

7616 

0 0006 

1 

extend 

1102 

7617 

4 0146 

0 

DCS 

MPAC  *5 

1103 

76Z0 

52  146 

0 

DXCH 

MPAC  *5 

1104 

7621 

1 6014 

0 

tcf 

DANZIG 

110s 

7622 

4 0142 

1 

DCOMP 

C5 

MPaC  .2 

1106 

7623 

54  142 

1 

TS 

MPAC  *2 

1107 

7624 

1 6014 

0 

TCF 

DANZIG 

275690 

PU08 

1109 

1110 

nil 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

III9 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

11311 

11312 

1132 

11321 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 
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CONSTANTS  ReQUiRED  iN  FiXED-FiXED. 


7625 

37777  1 

DPOSMAX 

OCT  37777 

7626 

37777  1 

POSMAX 

OCT  37777 

7627 

57777  1 

NEGl/2 

OCT  -20000  MUST  BE  TWO  LOCATIONS  AHEAD  OF  POSl/2 

7630 

40000  0 

0IT15 

OCT  40000  BIT  TABLE  FOLLOWS, 

7631 

20000  0 

BIT14 

OCT  20000 

7632 

10000  0 

BIT13 

OCT  10000 

7633 

04000  0 

BIT12 

OCT  04000 

7634 

02000  0 

BITll 

OCT  02000 

7635 

01000  0 

BlTlO 

OCT  01000 

7636 

OO4OO  0 

BIT9 

OCT  00400 

7637 

00200  0 

BIT8 

OCT  00200 

7640 

00100  0 

BItT 

OCT  00100 

7641 

00040  0 

BIT6 

OCT  00040 

7642 

00020  0 

BIT5 

OCT  00020 

7643 

00010  0 

BIt4 

OCT  00010 

7644 

00004  0 

BIT3 

OCT  00004 

7645 

00002  0 

BIT2 

OCT  00002 

7646 

OOoOl  0 

BItI 

OCT  00001 

7630 

NeqMAX 

equals  B1T15 

7631 

half 

EQUALS  BIT14 

7631 

POSl/2 

equals  half 

7632 

QUARTER 

EQUALS  BIT13 

7634 

2K 

equals  BITll 

7647 

00013  0 

eleven 

DEC  11 

7647 

NOUTCON 

a ELEVEN 

7690 

00012  1 

TEN 

DEC  10 

7691 

00011  1 

nine 

DEC  9 

7643 

EIGHT 

EQUALS  BIT4 

7692 

00007  0 

SEVEN 

OCT  7 

6l62 

SIX 

EQUALS  REVCNT 

7644 

FOuR 

EQuALs  BIt3 

6165 

THREE 

equals  N0,WDS  ♦! 

7645 

TWO 

EQUALS  BIT2 

7646 

ONE 

EQl|ALs  01  t1 

7693 

00000  1 

ZERO 

OCT  0 

7694 

77777  0 

NEGO 

OCT  77777 

7655 

77776  1 

NEGONE 

DEC  -1 

7655 

NEqI 

s NeqONe 

7696 

77775  1 

NEG2 

OCT  77775 

7652 

L0w3 

equals  sEvEN 

6165 

L0W2 

equals  Three 

7697 

000^1  0 

CALLCODE 

OCT  000^1 

7660 

40014  0 

DlOADCOD 

OcT  40014 

7630 

VCOADcOD 

EQUALS  BITI5 

275690 
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list-processing  interpreter 


1150 

ll6l 

1152 


7661 

7662 


40015  1 


6°42 
00106  0 


dLOAD(* 

VLOAD* 

LVBUF 


OCT  40015 
E(3UALS  OCT4OOOI 
ADRES  VBuF 


USER'S  OwN  PAGE  NO.  43 
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LI  ST-PROCESS  I N(3  INTERPRETER 


USER'S  OWN  PAGE  NO,  AA 


P1153  shifting  and  ROUNOiNG  PACKAGE, 


R115A 


The  following  short  shift  codes  require  no  address  word: 


R1155 

R1156 

R1157 

R1158 


1,  sRl  TO  sRA 

2,  SRIR  TO  SRAR 

3,  SLl  TO  SLA 
A,  SulR  TO  SLAR 


SCALAR  shift  RIGHT. 

SCALAR  shift  RIGHT  AND  ROUND, 

SCALAR  SHIFT  LEFT, 

scalar  shift  left  and  round. 


R1159 

R1160 


5,  VSRl  TO  VSR8  VECTOR  SHIFT  RIGHT  (ALWAYS  ROUNDS), 

6,  VSlI  to  VSl8  vector  SHIFT  lEFT  (NEVER  ROUNDS), 


R1161 


the  following  codes  require  an  address  which  may  be  INDEXED: « 


R1162 

I, 

SR 

R1163 

2, 

SRR 

R116A 

3, 

sl 

R1165 

A, 

SLR 

SCALAR  Shift  right, 
scalar  shift  right  and  round, 
scalar  shift  l^FT, 

SCALAR  SHIFT  LEFT  AND  ROUND, 


R1166  5,  VSR 

R1167  6,  VSL 


VECTOR  SHIFT  RIGHT, 
VECTOR  SHIFT  LEFT, 


pll68  # IF  THE  ADDgESS  iS  inDEXED,  AnD  tHE  InOEx  MQt’IFlCATloN  rESULTS  In  A nEGATIVE  SHIFT  CoUnT,  A SHIFT  qF  THE 
R1170  absolute  Value  of  the  count  is  done  in  the  opposite  direction. 


1171 

00,2000 

1172 

00,2000 

3 6162  1 

SHOrTT 

1173 

00,2001 

7 0020  1 

117A 

00,2002 

54  021  0 

1175 

00,2003 

10  020  1 

1176 

00,2004 

1 2062  0 

1177 

00,2005 

00024  1 

SRpqV 

1178 

00,2006 

50  021  1 

TSSr 

1179 

00,2007 

3 7631  1 

1180 

00,2010 

54  121  1 

1181 

00,2011 

10  020  1 

1182 

00,2012 

0 2031  1 

RIGHtR 

1183 

00,2013 

1 6014  0 

SeTLOc 

10000 

bank  0 PORTION  FOLLOWS, 

CAF 

SIX 

scalar  short  shifts  Come  hErE.  the  shiFt 

MASK 

CYR 

COUNT-1  IS  NOW  IN  BITS  2-3  OF  CYR,  THe 

TS 

SR 

rounding  bit  is  in  BITl  At  this  POINT, 

ccS 

CYR 

SEE  IF  RIGHT  OR  LEFT  SHIFT  dESIrEj), 

TCF 

TSSL 

SHIFT  left. 

D^C 

20 

MPTEMP  setting  FOR  SR  bEFORE  p[jV. 

index 

Sr 

GET  Shifting  bit. 

caf 

BIT14 

TS 

mptemp 

CcS 

CYR 

SEE  IF  A round  is  dESIREd. 

tc 

MPACSRND 

yEs  - shift  right  and  rOuND, 

TCF 

DANZIG 
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1164 

1185 

00,2015 

1186 

00,2016 

1187 

00,2017 

1188 

00,2020 

U09 

00,2021 

1190 

00,2022 

1191 

00,2023 

1192 

00,2024 

1193 

00,2025 

II94 

00,2026 

1195 

00,2027 

1196 

00,2030 

R1197 

MPAC  sHiFT  RIGHT  AND 

II98 

00,2031 

1199 

00,2032 

1200 

00,2033 

1201 

00,2034 

1202 

00,2035 

1203 

00,2036 

1204 

00,2037 

1205 

00,2040 

1206 

00  2041 

1207 

00,2042 

120g 

00,2043 

1209 

00,2044 

1210 

00,2045 

1211 

00,2046 

1212 

00,2047 

1213 

00,2050 

1214 

00,2051 

1215 

00,2052 

1216 

00,2053 

1217 

00,2054 

1218 

00,2055 

1219 

00,2056 

1220 

00;2057 

1221 

00,2060 

1222 

00,2061 

3 ol2i 

0 

mpacshr 

CA 

MPtEMP 

0 0006 

1 

EXTEND 

7 0142 

1 

MP 

MPAC  *2 

54  U2 

1 

+ 3 

TS 

MPAC  *Z 

3 0121 

0 

CA 

MPTEMP 

0 0006 

1 

EXTEND 

7 0140 

0 

MP 

MpAC 

52  I4l 

1 

DXCH 

MPAC 

3 0121 

0 

CA 

MPTEMP 

0 0006 

1 

EXTEND 

7 0001 

1 

MP 

L 

20  142 

1 

DAs 

MPAC  +1 

1 6014 

0 

TCF 

DANZIg 

ROUND  subroutines. 

3 0U2 

0 

MPAC5RND 

CA 

MPAC  +2 

0 0006 

1 

EXjEND 

7 OlZl 

1 

MP 

MPTEMP 

56  141 

0 

XCH 

MPAC  +l 

0 0006 

1 

EXTEND 

7 0121 

1 

MP 

MPTEMP 

56  14l 

0 

XCH 

MPAC  +1 

6 0001 

0 

AD 

l 

6 0000 

1 

vshrz 

DOUBLE 

54  142 

1 

TS 

MPAC  *Z 

1 2045 

0 

TCF 

*2 

26  141 

1 

ADS 

MPAC  *l 

3 7653 

0 

CAP 

ZERO 

54  142 

1 

TS 

MPAC  +2 

56  140 

1 

XCH 

MPAC 

0 0006 

1 

EXTEND 

7 0121 

1 

MP 

MPTEMP 

20  141 

1 

DAS 

MPAC 

0 0002 

0 

TC 

Q 

3 OlZl 

0 

VSHrrnO 

CA 

MpTEMp 

0 0006 

1 

gXTpND 

7 0141 

1 

MP 

MpAC  ♦! 

54  141 

1 

TS 

MPAC  ♦! 

56  001 

0 

XCH 

L 

1 2041 

1 

tCF 

VSHRZ 

USER'S  Own  Page  nO,  as 
DO  A triple  precision  sHIFj  right. 

(exit  from  sort  ABvAU. 


SHIFT  major  pArT  INTO  A*L  AND  PLACE  IN 
MPAC»*1« 


ORIGINAL  C(MPAC  ♦!) , 

guaranteed  no  overflow. 


we  have  to  do  all  three  MULTIPLIES  SINCE 
MPAC  +1  and  MPAC  *2  MIGHt  HAVE  SIGN 

disagreement  with  a Shift  right  of  i. 


trial  minor  part. 

(FINISH  vector  component  SHIFt  RIGHT 

AND  ROUND. 

guaranteed  no  overflow. 

SETTING  TO  ZERO  SO  FOLLOWING  DAS  WORKS, 


agaiN  no  overflow. 


enTrY  To  Shift  right  and  round  mpAc  when 
MPAC  contains  a Vector  coRponeNt, 


GO  ADD  ONE  IF  NECEjsARY  AND  FINIjN. 


275690 

P1223 

1224 

1225 

1226 

1227 

122S 

1229 

1230 

1231 

1232 

1233 

A1234 

1235 

1236 

1237 

1238 

1239 

1240 
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LIsT-PROCESSING  interpreter  USEr»S  own  page  no.  46 

ROUTINE  FOR  SHORT  SCALAR  SHIFT  LEFT  (AND  MAyBE  ROUND), 


00,2062 

3 0021 

1 

TSSL 

CA 

SR 

GET  Shift  count  for  sr. 

00,2063 

54  121 

1 

.1 

T5 

MPTEMP 

00,2064 

0 0006 

1 

.2 

extend 

Entry  here  from  sl  FoR  scalars. 

00,2065 

3 0142 

0 

DCA 

MpAC  ♦! 

shifting  left  One  place  at  a time  is 

00,2066 

20  142 

1 

OAs 

MPAC  ♦! 

FAsjEr  xHAN  doing  jHE  WHOLE  sHIFt  WItH 

00,2067 

6 0140 

1 

AD 

MpAC 

multiplies  assuming  that  frequency  of 

00 , 20t0 

6 OIaO 

1 

AD 

MpAC 

shift  counts  goes  down  rapidly  as  a 

00,2071 

54  140 

0 

TS 

MpAC 

Function  of  their  magnitude. 

00,2072 

1 2074 

1 

TCF 

♦ 2 

00,2073 

54  105 

1 

TS 

OVfIND 

overflow.  (Leaves  overflow-corrected 
RESULT  ANYWAY). 

00,2074 

10  IZl 

1 

CCS 

MPTEMP 

LOOP  ON  decremented  SHIFT  COUNT. 

00,2075 

1 2063 

1 

TCF 

TSSL  ♦! 

00,2076 

10  020 

1 

CCS 

CYR 

SEE  IF  RoUnD  wanted. 

00,2077 

0 7115 

0 

TC 

ROUNDSUB 

YES  - ROUND  AND  EXIT, 

00,2100 

1 6014 

0 

TCF 

DANZIG 

SL  LEAVES  A ZERO  IN  CYR  FOR  NO  ROuND, 

00,2101 

1 6019 

0 

TCF 

DANZIg 

NO  - exit  immediate 

27569q  YUL  system  FOR  BLK2I  REvISJON  o OF  PROGRAM  REfREDAA  By 
LIST-PROCESSING  INTERPRETER 


pX241  vEcToR  shifting  ROUTINES, 


12«2 

00,2102 

3 7652 

1 

SHORTv 

CAF 

1243 

00,2103 

7 0020 

1 

mask 

1244 

00,2104 

54  121 

1 

TS 

1245 

00,2105 

10  020 

1 

CCS 

1246 

00,2106 

1 2126 

1 

TCF 

1247 

00,2107 

OOI76 

1 

OCTI76 

OCT 

1248 

00,2110 

50  121 

0 

VSS(^ 

index 

1249 

00,2111 

3 7631 

1 

caf 

1250 

00,2112 

54  121 

1 

TS 

1251 

00,2113 

0 2054 

1 

TC 

1252 

002114 

52  141 

1 

DxCH 

1253 

00,’2li5 

52  144 

1 

DXCH 

1254 

00,2116 

52  14l 

1 

DXCH 

1255 

00,2117 

0 2054 

1 

tc 

1256 

00,2120 

52  l4l 

1 

DXCH 

1257 

00,2121 

52  146 

0 

DXCH 

1258 

00,2122 

52  141 

1 

dxch 

IZ59 

00,2123 

0 2O54 

1 

TC 

1260 

00,2124 

1 7364 

0 

tcf 

NAsA  2o211oq 

JUL  9,  1965  (MAIN)  PAGE  ( 

USERiS  Own  PAGE  NO,  47 

LOW3 

SAVE  3 bit  shift  COUNT  - 1 WITHOUT 

cyr 

mptemp 

editing  cyr. 

CyR 

SEE  IF  left  or  right  SHIFT, 

VSSL 

vector  Shift  left. 

I76 

USED  IN  processed  SHIFTS  WITH  - COUNT, 

MpTEMp 

(EnTry  From  Sr),  rick  up  shifting  bit. 
MPTeMP  contains  THg  SHIFT  COUNT  - 1, 

BIT14 

mptemp 

vshrrnd 

shift  X component. 

MpAC 
MPAC  +3 
MPAC 

SWAP  X ^ND  y components. 

VsHRRND 

shift  Y component. 

MpAC 
MpAC  +5 
MPAC 

SWAP  Y and  Z components. 

VSHRRND 

shift  z component. 

VROTATEX 

restore  components  to  proper  places. 
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P1261  VECTOR  SHIFT  LEFT  - DONE  ONE  PLACE  AT  A TIME, 


1262 

00,2U5 

54  121 

1 -1 

TS 

MRTEMP 

SHIFTING 

LOOP, 

1263 

00,2126 

0 0006 

1 VSSL 

EXTeND 

1264 

00,2127 

3 0l4l 

0 

DCA 

MPAC 

1265 

00,2130 

20  141 

1 

DAS 

MPAC 

1266 

00,2131 

0 0006 

1 

EXTEND 

1267 

00,2132 

1 2134 

1 

BZF 

♦ 2 

126g 

00,2133 

0 7006 

0 

TC 

overflow 

1269 

00,2134 

0 0006 

1 

EXTEND 

1270 

00,2135 

3 0144 

0 

DCA 

MpAC  *3 

1271 

00,2136 

20  144 

1 

DAS 

MPAC  +3 

IZ72 

00,2137 

0 0006 

1 

EXTEND 

1273 

00,2140 

1 2142 

0 

BZF 

♦ 2 

1274 

00,2141 

0 7006 

0 

TC 

OVERFLOW 

1275 

00,2142 

0 0006 

1 

EXTEND 

1276 

00,2143 

3 0i46 

1 

DCA 

MPAC  +5 

IZ77 

00,2144 

20  146 

0 

DAS 

MPAC  ♦S 

1278 

00,2145 

0 0006 

1 

extend 

1279 

00,2146 

1 2150 

0 

BZf 

1280 

00,2147 

0 7006 

0 

TC 

overflow 

1281 

00  2150 

10  121 

1 

CCS 

MpTEMp 

LOOP  ON 

decremented  shift  Counter 

1282 

00,2151 

1 2125 

1 

TCF 

VSSL  -1 

1283 

00,2152 

1 6014 

0 

TCF 

DANZIG 

EXIT, 
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list-processing  interpreter  user.s  Own  page  no.  49 

pl284  TSlC  - TRipLE  SHIFT  LEFT  A(\|D  CqUnT,  SHIFTS  MpAC  LEFT  UnTIL  GREATER  ThAn  .5  l^  MAGNITUDE,  LEAVIn^ 

R1286  the  complement  OF  THE  NUMBER  OF  SHIFTS  REQUIRED  IN  X. 


1287 

00,2153 

54  121 

1 

TSLC2 

TS 

MpTEMp 

START  BY  ZEROING  SHIFT  CqUnT  (In  A NoW>. 

1288 

00,215A 

0 6710 

1 

TC 

branch 

EXIT  WITH  NO  shifting  IF  ARGUMENT  ZERO, 

1289 

00,2155 

1 2157 

1 

TCF 

♦ 2 

1290 

00,2156 

1 2172 

0 

TCF 

ENDTSLC 

STORES  ZERO  Shift  count  in  this  case. 

1291 

00  2157 

3 0140 

1 

CA 

MpAC 

begin  normalization  LOOP, 

1292 

00,2160 

1 2167 

1 

TCF 

TSLCTEST 

1293 

00  2161 

24  121 

0 

tslcloop 

INCR 

MPtEMP 

increment  shift  counter. 

129A 

00,2162 

0 0006 

1 

EXTEND 

1295 

00,2163 

3 0142 

0 

DCA 

MPAC  +1 

1296 

00,2164 

20  142 

1 

OAs 

MPAC  ♦! 

1297 

00,2165 

6 0140 

1 

AD 

MPAC 

1298 

00,2166 

26  140 

0 

ADS 

MPAC 

1299 

00,2167 

6 0000 

1 

TSLCTEST 

DOUBLE 

SEE  IF  (Another)  shift  is  rEquIrED. 

1300 

00,2170 

54  000 

0 

OVSK 

1301 

00,21Ti 

1 2161 

1 

TCF 

TSLCLOOP 

YES  - increment  count  AND  SHIFT  AGAIN, 

1302 

00,2172 

4 0121 

1 

endtslc 

CS 

MPTEMP 

1303 

00,2173 

1 6626 

1 

TCF 

STOREl 

STORE  SHIFT  count  AND  RETURN  TO  DANZIG, 
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List-PROCESSiNg  interpreter  USER'S  OWN  PAGE  NO,  50 

P1304  the  following  routines  processes  the  general  shift  instructions  SR*  SRR*  sL*  and  sLR* 

R1306  the  given  address  IS  DECODED  AS  FOLLOWS) 


RI307 

R1308 

R1310 

R1311 

R1312 


bits  1-7 

Bit  8 
BIT  9 

bit  10 

BITS  11-15 


shift  Count  (subaddress)  less  than  125  decimal* 

PSEUDO  Sign  bit  (detects  change  in  sign  in  indexed  shifts), 

0 FOR  left  shift*  and  1 FOR  RIGHT  SHIFT, 

1 FOR  terminal  rouNd  on  scalar  shifts*  0 Otherwise, 

0, 


R1313  the  above  ENCODING  Is  DONE  Bv  THE  YyL  SYSTEM, 


13U 

00*2174 

7 0102 

0 

GENsHIFt 

MASK 

ADDR^JD 

GEt  shift  COyNT*  TESTING  FOR  ZErO, 

1315 

00,2175 

10  000 

0 

CCS 

A 

(ARRIVES  with  C(A)  a L0W7) , 

1316 

00,21t6 

1 2204 

1 

TCF 

GENSHFT2 

IF  non-zero,  proceed  with  decremented  Ct 

1317 

00,2177 

3 7635 

0 

CAF 

BITIO 

zero  shift  Count,  no  shifts  needed  but 

1318 

00,2200 

7 0102 

0 

MASK 

AddRWd 

We  might  have  to  round  MPAC  on  SLR  ANd 

1319 

00,2201 

10  000 

0 

CCS 

A 

SRR  (SCALAR  OnLY> • 

1320 

00,2202 

0 7115 

0 

TC 

ROUNDSUB 

1321 

00,2203 

1 6014 

0 

TCF 

DANZIG 

1322 

00,2204 

54  121 

1 

GEnSHFT2 

TS 

MrTEmr 

decremented  shift  CqUnT  To  MdTEmp, 

1323 

00,220S 

3 7637 

1 

CAF 

BITS 

TEST  MEANING  OF  LOW  SEVEN  BIT  COUNT  IN 

1324 

00,2206 

0 0006 

1 

extend 

MPtEMP  now. 

1325 

00,2207 

7 0102 

0 

MP 

AddRWO 

1326 

00,2210 

7 6l65 

1 

MASK 

L0W2 

Jumps  on  shift  direction  (Bitb)  and 

1327 

00,2211 

50  000 

1 

INDEX 

A 

1328 

00,2212 

1 2213 

1 

TCF 

♦ 1 

original  Shift  direction  (Bit  9), 

1329 

00,2213 

1 2312 

1 

TCF 

RIGHT- 

negative  shift  count  for  SL  or  SLR, 

1330 

00,2214 

1 2321 

1 

TCF 

LEFT 

Si  or  Si  R, 

1331 

00,2215 

1 2316 

0 

TCF 

LEFT- 

negative  shift  count  with  SR  OR  SRR, 
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list-processing  interpreter 


P1332 

general  Shift  right 

1333 

00,2216 

133a 

00,2217 

1335 

00,2220 

1336 

00,2221 

1337 

00,2222 

1338 

00,2223 

1339 

00,2224 

1340 

00  2225 

1341 

O0S2226 

1342 

00,2227 

1343 

00,2230 

1344 

00,2231 

1345 

00,2232 

1346 

06,2233 

1347 

00,2234 

A1348 

1349 

00,2235 

1350 

00,2236 

1351 

00,2237 

1362 

00,2240 

1363 

00,2241 

1354 

00,2242 

1355 

00,2243 

1356 

00,2244 

1357 

00,2245 

1358 

00,2246 

1359 

00,2247 

1360 

00,2250 

1361 

00,2251 

1362 

00,2252 

1363 

00,2253 

i364 

00,2254 

1365 

00,2255 

1366 

00,2256 

0 OF  program  REtrEDAA  By  nAsA  2021100 


10  147 

1 

right 

CCS 

MODE 

1 2257 

1 

TCF 

genscr 

1 2257 

1 

TCF 

GENSCR 

3 0121 

0 

CA 

MpTEMp 

6 2273 

0 

VRIGHT2 

Ad 

NgGl2 

0 0006 

1 

Extend 

6 2110 

0 

bzmf 

VSSR 

6 7655 

0 

AD 

NEGONE 

54  121 

1 

T5 

MPTEMP 

3 7653 

0 

CAF 

ZERO 

54  001 

1 

TS 

L 

56  140 

1 

XCH 

MPAC 

56  I4l 

0 

XCH 

MPAC  *1 

0 2252 

0 

tL 

sEtROUNO 

20  14l 

1 

das 

MPAC 

56  143 

1 

XCH 

MPAC  43 

56  144 

0 

XCH 

MPAC  *4 

0 2252 

0 

TC 

SEtROUND 

20  144 

1 

das 

MPAC  +3 

56  145 

1 

XCH 

MpAC  +5 

56  146 

1 

XCH 

MPAC  +6 

0 2252 

0 

TC 

SETROUND 

20  146 

0 

DAS 

MPAC  +5 

10  121 

1 

ccS 

MPTEMP 

1 2222 

0 

TCF 

VRIGHT2 

1 3614 

0 

TCSUBTR 

TCF 

subtr 

04604 

1 

BIASLO 

DEC 

.2974  B- 

1 6014 

0 

TCF 

DAnZiG 

6 0000 

1 

SEtROuND  DOmBLE 

54  142 

1 

TS 

MPAC  +2 

3 7653 

0 

CAF 

ZERO 

56  001 

0 

XCH 

L 

0 0002 

0 

TC 

b 

JUL  9,  1965  (MAIN)  PAGE  6? 


USER'S  Own  page  no,  51 


SEE  IF  vector  or  SCALAR, 


SEE  IF  Shift  count  GrEater  than  130, 


IF  so,  branch  and  shift  immediately, 

IF  not,  reduce  MPXEMP  By  A TOTAL  OF  U 
AND  DO  A Shift  right  and  round  by  u, 

THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 
ONE  bit  error  in  a SHIFT  RIGHT  15D, 


X component  NOW  sHiftEd,  so  make  up  the 

rounding  QUANTITY  (0  IN  A AND  0 OR  ♦-! 
IN  L>. 

repeat  the  above  process  for  Y AND  2. 


NO  overflow  on  these  Adds, 


SEE  IF  D°NE,  qOING  FINaL  pEcREMENT, 


SORT  constant 


MAKES  uP  ROuNDING  QuANtItY  FROM  Arriving 
c!Ai,  L is  Zero  initially. 


return  and  do  The  das,  resettiNq  l to  o. 


275690 

P1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 
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list-processing  interpreter  useris  own  Page  no.  sa 

process  Sr  AND  Srr  FOR  SCALArS. 


00,2257 

3 0121 

0 

GENSCR 

CA 

mptemp 

SEE  IF  THE  ORIGINAL  SHIFT  COUNT  WAS  LESS 

00,2260 

6 2273 

0 

♦ 1 

AD 

NEG12 

than  lAD. 

00,2261 

0 0006 

1 

EXTEND 

00,2262 

6 2302 

1 

BZMF 

DqSSHFT 

DO  the  shift  immediately  if  so. 

00,2263 

6 7655 

0 

♦ 4 

AO 

negone 

IF  not*  decrement  shift  Count  by  14d  and 

00,2264 

54  121 

1 

TS 

mptemp 

shift  MPAC  right  14  PLACES. 

00,2265 

3 7653 

0 

CAF 

ZERO 

00,2266 

56  140 

1 

XCH 

MPAC 

00,2267 

00,2270 

56  l4l 

0 

XCH 

MPAC  ♦! 

54  142 

1 

Us 

MPAC  +Z 

00,2271 

10  121 

1 

mptemp 

see  if  Finished,  do  final  decrement. 

00,2272 

0 22b0 

1 

TC 

GENSCR  *1 

00,2273 

77763 

0 

NEG12 

DEC 

-12 

00,2274 

22650 

1 

slopehi 

DEC 

,5884 

BITIO 

SORT  constant. 

0V,22?5 

3 7635 

0 

CAF 

finished  with  shift,  see  if  round 

00,2276 

7 0102 

0 

mask 

AODrWD 

wanted. 

00,2277 

10  000 

0 

CCS 

A 

00,2300 

0 7115 

0 

TC 

ROUNDSUb 

00,2301 

1 6014 

0 

tcf 

DANZIG 

DO  sO  AND/OR  EXIT. 

00,2302 

50  121 

0 

D0S5HFT 

INDEX 

mptemp 

PICK  UP  shifting  BIT. 

00,2303 

3 7631 

1 

CAF 

0IT14 

00,2304 

54  121 

1 

TS 

mptemp 

00,2305 

3 7635 

0 

CAF 

BITlO 

SEE  IF  terminal  ROUND  DESIRED. 

00,2306 

7 0102 

0 

MASK 

addrwd 

00,2307 

10  000 

0 

CCS 

A 

00,2310 

1 2012 

1 

TCF 

RIGHTR 

YES. 

00,2311 

1 2014 

1 

tcf 

MPACSHR 

Just  shift  right. 
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List. processing  interpreter 


USER'S  OWN  page  no,  93 


P1395  PROCESS  the  RIGHT*  (SL(R)  WITH  A NEGATIVE  COUNT),  LEFT-,  AND  lfFt  OPTIONS, 


1397 

00,2312 

4 0121 

1 

RIGHT- 

CS 

MpTpMP 

Get  absolute  value  - 1 of  shift  count 

1398 

00,2313 

6 2107 

0 

AD 

OCTI76 

UNDERSTANDING  THAT  BITS  tPSEuDO-SIGN) 

1399 

00,2314 

54  IZl 

1 

TS 

MPTEMP 

WAS  1 INITIALLY. 

UOO 

00,2315 

1 2216 

1 

TCF 

right 

DO  normal  shift  right. 

1401 

00,2316 

4 0121 

1 

left- 

CS 

MpTEMp 

same  pRoLoGUE  Tq  LEFT  FqR  INDEXED  RiGhT 

1402 

00,2317 

6 2107 

0 

AD 

0CT176 

SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 

1403 

00,2320 

54  121 

1 

TS 

MPtEMP 

1404 

00,2321 

10  147 

1 

ueft 

CcS 

MOpE 

SINrE  left  SHIFTING  IS  SONE  ONE  PLAfE  AT 

1405 

00,2322 

1 2325 

0 

TCF 

6ENSCL 

A time,  no  Comparison  with  u need  be 

1406 

00,2323 

1 2325 

0 

TCF 

genscl 

DONE,  FOR  SCALARS.  SEE  IF  TERMINAL  ROuND 

I4O7 

00,2324 

1 2126 

1 

TCF 

VS5L 

DESIRED,  FOR  VECTORS.  SHIFT  IMMEDIATELY. 

1408 

00,2325 

3 7641 

0 

GE^SCl 

CAF 

BIT6 

pUT  RqUnDInQ  bit  (BITIO  qE  ADORWD)  InTq 

1409 

00,2326 

0 0006 

1 

EXTEND 

BIT  15  OF  CYR  WHERE  THE  ROUNDING  BIT  oF 

1410 

00,2327 

7 0102 

0 

MP 

AODRWD 

A short  shift  left  would  be. 

1411 

00,2330 

54  020 

1 

TS 

CYR 

I4l2 

00,2331 

1 20fe4 

0 

TCF 

TSSL  +2 

DO  THE  SHIFT, 
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list-processing  interpreter  USER'S  Own  page  no.  54 


P1413 

SCALAR 

DIVISION  instructions, 

DOV  and 

bddv,  are  executed  here. 

AT  THIS  POiNT,  ThE  DiViDEND  iS  iN  MpAC 

R1A15 

AND  THE  DIVISOR 

IN  BUF. 

1416 

00,2392 

4 7646 

0 

ddv/bodv  cs 

one 

initialization. 

1417 

00,2333 

54  122 

1 

TS 

dvsign 

♦-1  FOR  POSITIVE  QUOTIENT  - -0  FOR  NEq, 

1418 

00,2334 

54  123 

0 

ts 

dvnormct 

DIVIDEND  normalization  COUNT, 

1A19 

00,2335 

54  124 

1 

TS 

MAXDVSW 

NEAR-ONE  DIVIDE  FLAG, 

1420 

00,2336 

10  114 

1 

CCS 

BuF 

FORCE  BUF  positive  wITH  THE  MAJOR  PART 

1421 

00,2337 

1 2366 

1 

TCF 

BUF  + 

NON-ZERO. 

1422 

00,2340 

1 2342 

1 

TCF 

♦2 

1423 

00,2341 

1 2362 

0 

TCF 

0UF- 

1424 

00,2342 

56  115 

1 

XCH 

BUF  +1 

SHIFT  dividend  AND  DIVISOR  LEFT  I4. 

1925 

00,2343 

56  114 

0 

XCH 

BUF 

1426 

00,2344 

56  141 

0 

XCH 

MPAC  +1 

1427 

00  2345 

56  140 

1 

XCH 

MPAC 

1428 

00,2346 

0 0006 

1 

EXTEND 

check  for  overflow. 

U29 

00,2347 

1 235I 

0 

BZF 

♦2 

1430 

00,2350 

1 2355 

1 

TCF 

DVOVF 

1431 

00,2351 

10  114 

1 

CCS 

BUF 

TRY  again  on  former  MINOR  PART, 

1432 

00,2352 

1 2366 

1 

TCF 

BuF* 

1433 

00,2353 

1 2395 

1 

TCF 

DVOVF 

OVERFLOW  ON  ZEPO  DiViSOR, 

1434 

00,2354 

1 2362 

0 

TCF 

BUF- 

1435 

00,2355 

3 7626 

1 

DVoVF 

CAF 

PqSMAX 

ON  division  overflow  oF  Any  SqRT,  set 

1436 

00,2356 

54  140 

0 

TS 

MPAC 

SET  DP  MPAC  TO  *-POSMAX. 

1437 

00,2397 

0 2592 

1 

TC 

FINALDV  +3 

1438 

00,2360 

3 7646 

1 

CAP 

ONE 

Set  overflow  indicator  and  exit. 

1439 

00,2361 

1 7060 

1 

TCF 

5ET0VF 

1440 

00,2362 

0 0006 

1 

BUp- 

EXTeND 

Ip  BUp  IS  Negative,  complement  it  and 

1441 

00,2363 

4 0115 

0 

DCS 

BuF 

MAINTAIN  Dvsign  for  final  quotient  sign 

1442 

00,2364 

52  115 

0 

OXCH 

BUF 

1443 

00,2365 

24  122 

0 

I NCR 

DVSIqN 

NOW  -0. 

1444 

00,2366 

10  140 

0 

BUF  + 

CCs 

MpAC 

force  MPAC  POSITIVE,  CHECKING  FOR  ZERO 

1445 

00,2367 

1 2403 

0 

TCP 

MPAC* 

dividend  in  the  process. 

1446 

00.2370 

1 2372 

1 

TCF 

*2 

1447 

0o;2371 

1 2377 

1 

TCF 

MPAC- 

1448 

00,2372 

10  l4l 

1 

CCS 

MPAC  *1 

1449 

00,2373 

1 2403 

0 

MpAC* 

1450 

00,2374 

1 6014 

0 

TCF 

DANZiG 

EXiT  immediately  ON  ZERO  DiViDEND. 

U5I 

00,2375 

1 2377 

1 

TCF 

MPAC- 

1452 

00,2376 

1 6014 

0 

tcf 

DANZlG 

1453 

00,2377 

0 0006 

1 

MPftC- 

EXTEND 

FORCE  MPftC  POSITIVE  aS  b^F  IN  bUF-, 

1464 

00,2400 

4 0141 

1 

DCS 

MpAC 

1455 

00,2401 

52  141 

1 

dxch 

MPAC 

Z75690  YUL  SYSTEM  FOR  BLKZj  REVISION  0 OF  PROGRAM  RETRED44  BY  N*sA  ZOZllOO 
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list-processiNq  interpreter 

00«Z40Z  Z4  1Z2  0 


JUL  9*  1965  (MAIN)  PAGE  71 

USER'S  Own  page  no,  55 

INCr  DySIGN  NOW  OR  -0, 
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list-processing  interpreter 


U57 

00 

,2903 

4 0140 

0 

MPAC* 

cs 

MpAC 

1958 

00 

,2909 

6 7655 

0 

AD 

NeGONe 

1959 

00 

,2905 

6 0114 

0 

AD 

BUF 

I960 

00 

,2906 

10  000 

0 

CCS 

A 

1961 

00 

,2907 

1 2451 

1 

TCF 

DVNOrM 

1962 

00 

,2910 

60001 

0 

-1/2+2 

OCT 

60001 

1963 

00 

,2911 

1 2412 

0 

TcF 

♦ 1 

1969 

00 

,2912 

3 7631 

1 

CAF 

HALF 

1965 

00 

,2913 

6 0000 

1 

DOUBLE 

U66 

00 

,2419 

6 OI4I 

0 

AD 

MpAC  +1 

1967 

00 

,29l5 

54  141 

1 

TS 

MpAC  +1 

1968 

00 

,2916 

3 7653 

0 

CAF 

ZgRO 

1969 

06 

,2917 

6 7626 

1 

AD 

POSMAX 

1970 

00 

,2420 

26  140 

0 

ADS 

MPAC 

1971 

00 

,2421 

3 7631 

1 

CAF 

HALF 

1972 

00 

,2422 

6 0000 

1 

DOUBLE 

1973 

00 

,2423 

5 0115 

1 

AD 

BUF  +1 

1979 

00 

,2424 

54  115 

0 

TS 

BUF  +1 

1975 

00 

,2425 

3 7653 

0 

CAF 

Zero 

1976 

00 

,2426 

6 7626 

1 

AD 

POSMAX 

1977 

00 

,2427 

26  119 

1 

ADS 

BuF 

1978 

00 

,2430 

4 0140 

0 

cs 

MPAC 

1979 

00 

,2431 

6 0114 

0 

AD 

BUF 

1980 

00 

,2432 

10  000 

0 

CCS 

A 

1981 

00 

,2433 

1 2451 

1 

TCF 

DVNORM 

1982 

00 

,2434 

00117 

0 

LBuf2 

ADRES 

BUF2 

1983 

00 

,2435 

1 2355 

1 

TCF 

DVOVF 

1989 

00 

,2436 

54  124 

1 

TS 

MAxDvSW 

1985 

00 

,2437 

4 0141 

1 

CS 

MPAC  +1 

I486 

00 

1Z44O 

6 0ll5 

1 

AD 

BUF  *l 

1987 

00 

,2441 

0 0006 

1 

extend 

1988 

OU 

,2492 

6 2355 

0 

8ZMF 

DVOVF 

1989 

00 

,2993 

1 2451 

1 

TCF 

DyNORM 

JUL  9»  1965  (MAIN)  PAGE  72 


USER'S  OWN  Page  no.  56 

CHECK  FOR  DIVISION  OVErFLOW.  IF  THE 
MAJOR  part  of  the  DIVIDEND  IS  LeSS  THAN 
THE  MAJOR  part  OF  THE  DIVISOR  By  AT 

least  two,  we  can  proceed  immediately 

WITHOUT  normalization  PRODUCING  A DVMAX. 
used  in  SQRTSuB. 

IF  THE  above  does  NOT  HOLd*  FORcE  SIGN 
agreement  IN  numerator  and  denominator 
TO  FACILITATE  OVERFLOW  AND  NEAR-ONE 
CHECKING. 


SAME  FOR  BuF. 


CHEcK  magnitude  OF  SIGN-cORREcTEp 

operands. 

DIVIDE  OK  - WILL  NOT  BeCOMe  MAXDV  CASe. 
DIVISOR  NOT  LESS  THAN  DIVIDEND  - OVF. 

IF  the  major  parts  of  the  dividend  and 

DIVISOR  ARE  EQUAL,  A SPECIAL  APPROXIMA- 
TION IS  USED  (PROVIDED  THE  DIVISION  IS 
POSSIBLE,  qF  CqURSE) . 

IF  NO  Overflow. 
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LiST-PROCESSiNg  interpreter 


1A90 

00,2444 

0 0006 

1 

BU^NOrM 

Extend 

1A91 

00,2445 

24  123 

1 

AUg 

DvNORMCT 

1492 

00,2446 

0 0006 

1 

extend 

1493 

00,2447 

3 0115 

1 

DCA 

BUF 

1494 

00,2450 

20  115 

0 

DAS 

BUF 

14g5 

00,2451 

3 0114 

0 

DVNORM 

CA 

BUF 

1496 

00,2452 

6 0000 

1 

DOUBLE 

1497 

00,2453 

54  000 

0 

OVSK 

1498 

00,2454 

1 2444 

0 

TCF 

bufnorm 

1499 

00,2455 

52  141 

1 

DXCh 

MPAC 

I5OO 

00,2456 

50  123 

1 

INDEX 

DvNORMCT 

1501 

00,2457 

0 2507 

1 

TC 

MAXTEST 

1502 

00,2460 

54  142 

1 

TS 

MpAC  ,2 

1503 

00,2461 

1 6016 

0 

TCF 

DANZIG 

JUL  9«  1965  (MAIN)  PAGE  73 
USER'S  OWN  page  no,  57 

ADD  -i  TO  Augment  shift  count  *nd  shift 
Left  one  place, 

see  if  divisor  NORMAL12ED  yet, 

NO  - shift  left  one  AND  TRY  AGAIN, 

CALL  dividend  NORMALIZATION  SEQUENCE 
PRIOR  TO  DOING  THE  DIVIDE, 

RETURNS  WITH  DIVISION  DONE  AND  CCA)  a 0, 
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P1504 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

I5l5 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 
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list-processing  interpreter  USER'S  Own  PAGE  NO,  58 

The  following  are  prologues  to  Shift  the  dividend  arriviNq  iN  a and  l before  the  diviDE; 


00,2462 

22 

021 

1 

-21D 

LXCH 

SR 

special  prologue  for  unit  when  THE 

00,2463 

0 1 

0006 

1 

EXTEND 

length  of  the  argument  was  not  less  Than 

00,2464 

7 

7631 

0 

MP 

HALF 

.5,  IN  THIS  case,  each  COMPONENT  MUST  BE 

00,2465 

56 

001 

0 

XCH 

L 

SHIFTED  right  ONE  TO  PRODUCE  A HALF-UnIT 

00,2466 

6 1 

0021 

1 

AD 

SR 

vector. 

00,2467 

56 

ool 

0 

XCH 

L 

00,2470 

1 

2513 

0 

TCF 

GENDDV  ♦! 

WITH  DP  DIVIDEND  IN  A,l, 

00,2471 

20 

001 

1 

ddoubl 

PROLOGUE  WHICH  NORMALIZES  THE  DIVIDEND 

00,2472 

20 

001 

1 

DDOUBL 

WHEN  IT  IS  known  THAT  NO  DIVISION 

00,2473 

20 

001 

1 

DDOUBL 

OVERFLOW  WILL  OCCUR, 

00,2474 

20 

001 

1 

ddoubl 

00,2475 

20 

001 

1 

DDOUBL 

00,2476 

20 

001 

1 

ddoubl 

00,2477 

20 

001 

1 

DDOUBL 

00,2500 

20 

001 

1 

DDOUBL 

00,25°1 

20 

001 

1 

DDOUBL 

00,2502 

20 

001 

1 

DDOuBL 

00,2503 

20 

001 

1 

DDOUBL 

00,2504 

20 

001 

1 

DDOUBL 

00,2505 

20 

ool 

1 

DDOuBL 

00,2506 

52 

141 

1 

DXCH 

mpac 

00,2507 

10 

124 

1 

MAxTEST 

CCS 

MAxDvSW 

0 IF  MAJORS  might  BE  s -1  OTHERWISE. 

0O;2510 

06552 

0 

BIASHI 

DEC 

.4192  B_1 

SORT  CONSTANTS 

00,2511 

1 

2564 

0 

TCF 

MAxDv 

check  to  see  if  they  are  now  equal. 
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LIST-PROCESSING  INTERPRETER  USERtS  OyN  PAGE  NOt  59 

pi53o  THE  Following  is  a general  pURpgSE  DqUBle  oRECision  division  roUTine.  it  divides  mdAC  by  buf  A,y,D  leaves 

R1532  THE  RESuLT  IN  MPAC,  THE  FOLLOWING  CONDITIONS  MUST  BE  SATISFIED, 

R1533  1.  THE  DivISvR  (BUF)  MUST  BE  poSiTIVE  AnD  noT  LESS  THAn  ,5. 

RisjA  2.  THE  Dividend  (MpaC)  must  be  positive  with  the  major  part  of  mpac  strictly  less  than  that  of  buf 

R1536  (A  special  APPROXIMATION*  MAXDV*  IS  USED  WHEN  THE  mAJoR  PARTS  ARE  EQUAl) . 

R.538  understanding  tHAT  A/B  s q * S(R/B)  wHErE  S » 2(-,A)  AND  0 AND  R ARE  QUOTIENT  AND  REMAINDER,  RESPEC- 

RI540  TIVElY.  THE  FOllOWiNG  APPRO/ImATION  iS  OBTAiNED  BY  MULTIPLYING  ABOVE  AND  BElOw  By  C - SD  AND  NEGlECTING  TERmS  OF 

R15W2  order  S-SQUARED  (POSSIBLY  INTRODUCING  ERROR  INTO  THE  LOW  TWO  BITS  OF  THE  RESULT)*  SIGN  AGREEMENT  IS  UNNECESSARY. 


R15A4 

A ♦ SB  , (R  - QD) 

A ♦ SB 

R1546 

1 

1 

1 

1 

1 

1 

0 

U 

1 
1 
1 
1 
• 

1 

WHERE  Q AND  R ArE  QUOTIENT  AnD  REMAINDER  OF  RESPECTIVELY* 

R15A8 

C ♦ SD  ( C ) 

C 

155o 

00*2512 

52  141 

1 

GENdDv 

DxCH 

MpAC 

WE  NEED  A AND  B ONLY  FOR  FIRST  DV, 

1551 

00,2513 

0 0006 

1 

*1 

EXTEND 

(SPECIAL  UNIT  prologue  ENTERS  HERE), 

1552 

0V*25l4 

10  114 

1 

DV 

BUF 

A NOW  contains  Q AND  L,  R. 

1553 

00,2515 

52  I4l 

1 

DXCH 

MPAC 

1559 

0y,25l6 

4 0140 

0 

cs 

MPAC 

FORM  dividend  FOR  MINOR  PART  OF  RESULT. 

1555 

00,2517 

0 0006 

1 

extend 

1556 

00,2520 

7 0115 

0 

MP 

BUF  *1 

1557 

00,2521 

6 OI9I 

0 

AD 

MpAC  +1 

overflow  at  THIS  POINT  IS  POSITIVE  SINCE 

1558 

00,2522 

54  000 

0 

OVsK 

R Is  positive  in  every  CAsE, 

1559 

00,2523 

1 2530 

1 

TCF 

+ 5 

1560 

0O,252<, 

0 0006 

1 

EXTEND 

overflow  can  be  removed  By  subtracting  c 

1561 

00,2525 

60  114 

0 

SU 

B^F 

(BuF)  once  since  R is  always  less  than  c 

1562 

00,2526 

24  140 

1 

I NCR 

MPAC 

jN  This  case.  iNcr  compensates  subtract. 

1563 

00,2527 

1 2532 

0 

TCF 

♦ DOWN 

(SINCE  C(A)  is  still  POSITIVE). 

1564 

00,2530 

0 0006 

1 

♦ 5 

extend 

C(A)  CAN  Be  made  LeSS  Than  C in  magni- 

1565 

00,2531 

6 2542 

0 

BzMF 

-UP 

tude  By  diminishing  it  By  C (SINCE  c IS 

A1566 

NOT  LESS  THAN  ,5)  UNLESS  C(A)  * 0, 
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LIST-PROceSSINg  interpreter  USER'S  OWN  page  no,  60 


1567 

00,2532 

0 0006 

1 

4D0WN 

EXTEND 

1568 

00,2533 

60  119 

0 

SU 

buf 

If  positive*  reduce  only  If  necessary 

1569 

00,2539 

0 0006 

1 

EXTEND 

SINCE  the  compensating  incr  might  cause 

1570 

00,2535 

1 2590 

0 

BZF 

♦ 3 

OVERFLOW, 

1571 

00,2536 

0 0006 

1 

EXTEND 

DONT  subtract  UNLESS  RESULT  IS  POSITIVE 

1572 

00,2537 

6 2596 

1 

BZMF 

ENDMAXDV 

OR  ZERO, 

1573 

00,2590 

29  190 

1 

♦ 3 

I NCR 

MRAC 

KEEP  subtract  HERE  AND  COMPENSATE, 

1579 

00,2591 

1 2597 

1 

TCF 

finaldv 

1575 

00,2592 

0 0006 

1 

-UP 

EXTEND 

IF  zero,  set  minor  part  OF  RESULT  TO 

1576 

00,2593 

1 2552 

0 

BZF 

FINALDV  ,3 

ZERO. 

1577 

00,2599 

0 0006 

1 

EXTEND 

IF  negative,  add  c to  a,  subtracting  one 

1578 

00,2595 

26  190 

0 

DIM 

MpAC 

to  compensate.  Dim  is  ok  here  since  the 

1579 

00,2596 

6 0119 

0 

endmaxdv 

AD 

BUF 

MAJOR  part  never  GOES  NEGATIVE, 

275690 

1580 

1581 

15sZ 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 
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LiST-PROCESSiNg  interpreter  USER'S  OWN  page  no.  61 


00,2547 

22  007 

0 

FINALOv  zl 

Do  Dy 

TO  obtain  minor  pArt  of  REsyLTt 

00,2550 

0 0006 

1 

EXTEND 

00,2551 

10  114 

1 

OV 

BUF 

00,2552 

54  141 

1 

♦ 3 TS 

MPAC  +1 

00,2553 

10  122 

1 

CCS 

DVSIGN 

leave 

RESULT  POSITIVE  UNLESS  c<dVSIGN) 

00,2554 

0 0002 

0 

TC 

0 

-0. 

00,2555 

0 0002 

0 

TC 

Q 

00,2556 

0 0002 

0 

TC 

0 

00,2557 

0 0006 

1 

extend 

00,2560 

4 0141 

1 

DCS 

MPAC 

00,2561 

52  l4l 

1 

dxch 

MpAC 

00,2562 

3 7653 

0 

CAF 

ZERO 

SO  WE 

always  return  with  CCA)  ■ 0, 

00,2563 

0 0002 

0 

TC 

a 
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LiST-PROCESSiNg  interpreter  USER'S  OWN  page  no,  62 

P1593  IF  the  major  PArtS  OF  THE  OiylSOR  AND  OiylDEND  ArE  EQuAl * BjT  tHE  MINOR  PARTS  ArE  suCH  THAt  THE 

R1595  DIVIDEND  IS  STRICTLY  LESS  THAN  THE  DiViSOR  IN  MAGNITUDE,  THE  FOLLOWING  APPROXIMATION  IS  USED.  THE  ASSUMPTIONS 

ri59t  are  the  same  As  the  general  Routine  with  the  addition  that  sign  agreement  is  necessary  (B,  c,  t d positive). 


R1599 

C ♦ SB  , (C  ♦ 

B - D) 

R1600 

— e 37777  + S<— • 

— — ) 

R1601 

C + SO  ( 

C ) 

R1602 

the  division  may  Be  PeR^ob'^ed 

immediately  since  b is  strictly  Less  than  d and  c is  not  less  than  ,5. 

1604 

00,2564 

4 0140 

0 

maxdv 

cs 

MPAC 

SEE  IF  maxdv  case  STILL  HOLDS  ArTeR 

1605 

00,2555 

6 0114 

0 

AD 

BUF 

normalization. 

1606 

00,2566 

0 0006 

1 

EXTEND 

1607 

00,2567 

1 2571 

1 

BZF 

♦ 2 

1508 

00,2570 

1 2512 

1 

tcf 

GENDDV 

MPAC  NOW  LESS  THAN  BUF  - DIVIDE  As  UsUAl 

l60g 

00,2571 

3 7626 

1 

42 

CAF 

POSMAX 

set  major  part  of  result. 

1610 

00,2572 

54  140 

0 

TS 

MPAC 

1611 

00,2573 

4 0115 

0 

CS 

BUF  +1 

FORM  DIVIDEND  OF  MINOR  PART  OF  ReSULT, 

1612 

00,25T4 

6 0141 

0 

AD 

MPAC  +1 

1613 

00,2575 

1 2596 

0 

TCF 

ENOMAXDV 

GO  ADD  C AND  DO  DIVIDE,  ATTACHING  SiGn 

A1614  BEFORE  EXITING. 
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P1615 

1617 

161fi 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 
1627 
1623 
l62R 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 
l63g 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 


LIST-PROCESSINS  interpreter 


USER'S  OWN  page  no.  63 


vector  divided  By  scalar,  v/sc,  is  Executed  here,  the  vector  is  now  in  mrac  ^ith  scalar  in  Byp, 


00,2576 

4 7646 

0 

V/SC2 

cs 

ONS 

00,2577 

54  123 

0 

T5 

DVNORMCT 

00,2600 

54  113 

0 

ts 

VBuF  *5 

00,2601 

10  114 

1 

CCS 

BuF 

00,2602 

1 2637 

0 

tCF 

/BuF  + 

0V.Z603 

1 2605 

1 

TCF 

♦ 2 

00,2604 

1 2633 

1 

tcf 

/BUp- 

00,2605 

56  115 

1 

xCH 

SyF  +1 

00,2606 

56  114 

0 

XCH 

BUF 

00,2607 

56  141 

0 

XCH 

MPAC  ♦! 

00,2610 

56  140 

1 

XCH 

MPAC 

Q0,26U 

0 0006 

1 

EXTEND 

00,26i2 

1 2614 

1 

BZF 

*2 

00,2613 

1 2355 

1 

TCF 

DVOVF 

00, 2614 

56  I44 

0 

XCH 

MPAC  +4 

00,2615 

56  143 

1 

XCH 

MPAC  *3 

0V.2616 

0 0006 

1 

extend 

00,26l7 

1 2621 

1 

BZF 

♦ 2 

00,26?0 

1 2355 

1 

tcf 

DVOVF 

00,2621 

56  146 

1 

XCH 

MPAC  *6 

00,2622 

56  145 

1 

XCH 

MPAC  +5 

00,2623 

0 0006 

1 

extend 

00,2624 

1 2626 

0 

BZF 

*2 

00,2625 

1 2355 

1 

tcf 

DVOVF 

00,2626 

10  114 

1 

CCS 

BUF 

00,2627 

1 2637 

0 

tcf 

/0UF  + 

00,2630 

1 2355 

1 

tcf 

DVOVp 

00,2631 

1 2633 

1 

tcf 

/BUF- 

00,2632 

1 2355 

1 

TCF 

DVoVF 

00,2633 

0 0006 

1 

/BUF- 

extend 

00,2634 

4 0115 

0 

DCS 

BuF 

00,2635 

52  115 

0 

DXCh 

BUF 

00,2636 

24  113 

1 

I NCR 

V0UF  +5 

initialize  dividend  normalization  CqUnT 

AND  DIVISION  SIGN  REGISTER. 

force  divisor  positive  with  major  part 

NON-ZERO  (IF  possibles, 

shift  vE'^TOR  and  scalar  left  1A, 
check  for  overflow  IN  EACH  CASE, 


ZERO  DiVtSOR  - overflow, 

on  negative,  complement  BUF  and  MAINTAIN 

DVsIGN  in  VByF  *5, 
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1&60 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 
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LiST-pRoCESSiNG  INTERpRETER 


USER'S  OWN  pAGE  NO*  8^ 


OV.2637 

3 7631 

1 

/BuF* 

CAF 

HALF 

FORCE  SIGN  agreement  IN  DIVISOR, 

00,26‘»0 

6 0000 

1 

DOUBLE 

0U,2691 

6 0115 

1 

AD 

BUF  tl 

00,2692 

54  115 

0 

TS 

BUF  *1 

00,2643 

3 7653 

0 

CAF 

ZERO 

00,2694 

6 7626 

1 

AD 

POSMAX 

00,2645 

26  119 

1 

ADS 

BUF 

00,2696 

56  117 

0 

XCH 

BUF2 

leave  ABSIqRiginAL  DIVISOR)  IN  BUF2  FqR 

00,2697 

3 0115 

1 

CA 

BUF  +1 

overflow  testing. 

00,2650 

54  120 

0 

TS 

BUF2  ♦! 

00,2651 

1 2657 

0 

TCF 

/NORM 

normalize  divisor  in  BUF, 

00,2652 

0 0006 

1 

/N0RM2 

EXTEND 

IF  LEss  than  ,5»  AUGMENT  DVNORMCT  AND 

00,2653 

24  123 

1 

AUG 

dvnormct 

double  DIVISOR, 

00,2654 

0 0006 

1 

EXTEND 

00,2655 

3 0115 

1 

DCA 

BUF 

00,2656 

20  115 

0 

DAS 

BUf 

00,2657 

3 0114 

0 

/NORM 

CA 

BUF 

SEE  IF  divisor  normalized. 

00,2660 

6 0000 

1 

DOUBLE 

00,2661 

54  000 

0 

OVSIC 

00,2662 

1 2652 

0 

TCF 

/NORM2 

DOUBLE  and  try  AGAIN  IF  NOT, 

00,2663 

0 2675 

1 

TC 

v/scdv 

DO  X component  DIVIDE, 

00,2664 

52  144 

1 

DXCH 

MpAC  *3 

supply  arguments  in  usual  sequence. 

00,2665 

52  141 

1 

DXCH 

MPAC 

00,2666 

52  144 

1 

DXCH 

MPAC  +3 

00,2667 

0 2675 

1 

TC 

V/SCDV 

Y COMPONENT, 

00,2670 

52  146 

0 

DXCH 

MPAC  +5 

00,2671 

52  141 

1 

DXCH 

MPAC 

00,2672 

52  146 

0 

DXCH 

MPAC  *5 

00,2673 

0 2675 

1 

TC 

V/SCDV 

Z COMPONENT, 

00,2674 

1 7364 

0 

TCF 

vrotatex 

GO  RE-ARRANGE  COMPONENTS  BEFORE  EXIt* 
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pi58o  subroutine  used  by  v/sc  To  divide  vector  Component  in  MpAc«+i  by  the  sca^Ar  given  in  buf. 


l6gZ 

00,2675 

3 0113 

1 

V/SCDV 

CA 

veUF  +5 

reflects  sign  of  scalar. 

1683 

00,2676 

54  122 

1 

TS 

DVSIGN 

1684 

0W,2677 

10  140 

0 

CCS 

MPAC 

force  MPAC  POSITIVE.  EXITING  ON  ZERO. 

1685 

00,2700 

1 2714 

0 

tcf 

/MPAC* 

1686 

00,2701 

1 2703 

0 

TCF 

♦ 2 

1687 

00,2702 

1 2710 

1 

tcf 

/MPAC- 

1688 

00,2703 

10  141 

I 

CCS 

MpAC  +1 

1689 

00,2704 

1 2714 

0 

TCF 

/MPAC+ 

1690 

00,2705 

0 0002 

Q 

TC 

Q 

1691 

00,2706 

1 2710 

1 

TCF 

/mpac- 

1692 

00,2707 

0 0002 

0 

Tc 

Q 

1693 

OOizTio 

0 000* 

1 

/MPAC- 

EXTEND 

USUAL  complementing  AND  SETTING  OF  SIGN 

1694 

00,2711 

4 0141 

1 

DCS 

MPAC 

I695 

00,2712 

52  141 

1 

DXCH 

MPAC 

1696 

00,2713 

24  122 

0 

INCR 

DVslGN 

I697 

00,2714 

4 7646 

0 

/MPACf 

cs 

ONE 

initialize  NEAR-ONE  SWITCH, 

1698 

00,2715 

54  124 

1 

TS 

MAXDVsW 

I699 

00,2716 

4 0140 

0 

CS 

MpAC 

CHECK  possible  OVERFLOW. 

1700 

00,2717 

6 0117 

0 

AD 

BuF2 

UNNORMALIZED  INPUT  DIVISOR, 

1701 

00,2720 

0 0006 

1 

EXTEND 

I7O2 

00,2721 

6 2725 

0 

BZMF 

/AGREE 

CHECK  FOR  NEAR-ONE  OR  OVERFLOW. 

1703 

00,2722 

52  141 

1 

DDVCALL 

DXCH 

MpAC 

CALL  pRE-DIVIDE  NORMALIZATION. 

I7O4 

00,2723 

50  123 

1 

INDEX 

DVNORMCT 

1705 

00,2724 

1 2507 

0 

TCF 

maxtest 
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17q6 

00,2725 

3 7631 

1 

/Agree 

CAP 

HALP 

FORCE  SIGN  agreement  IN  DIVIDEND 

1707 

O0,2726 

6 0000 

1 

double 

(Already  done  for  divisor). 

170b 

00,2727 

6 0141 

0 

AD 

MRAC  ♦! 

I70g 

00,2730 

54  141 

1 

TS 

MPAC  ♦! 

1710 

00,2731 

3 7653 

0 

CAP 

ZERO 

1711 

00,2732 

6 7626 

1 

AD 

POSMAX 

1712 

00,2733 

26  140 

0 

ADS 

MPAC 

1713 

00,2734 

4 0140 

0 

C5 

MPAc 

CHEcK  to  see  if  overflow  gone  or  if 

1714 

00,2735 

6 0117 

0 

AD 

BUF2 

near-one  case  is  present. 

1715 

0V»2736 

10  000 

0 

CCS 

A 

1716 

00,2737 

1 2722 

0 

TCP 

dovcall 

not  NeAR-ONe. 

1717 

00,2740 

32506 

0 

slopelo 

DEC 

.8324 

1718 

00,2741 

1 2355 

1 

TCP 

dvovp 

NO  HOPE. 

I7l9 

00  2742 

54  124 

1 

TS 

MAxDvSW 

signal  possible  near-one  case. 

1720 

00,2743 

4 0141 

1 

CS 

MpAC  +1 

see  if  division  can  be  Done. 

I72I 

00 ,2744 

6 O12O 

1 

AD 

BUP2  ♦! 

1722 

00,2745 

0 0006 

1 

EXTEND 

1723 

00,2746 

6 2355 

0 

BZMF 

DVOVP 

1724 

00,2747 

1 2722 

0 

TCP 

DDVCALL 

GOING  TO  MAXDV. 
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P1725  The  following  routjne  executes  the  uniT  instructjON,  whjCh  takes  The  uNit  of  The  vector  iN  mpac. 


1727 

00 

.2790 

0 7475 

0 

unit 

TC 

MpACvBUF 

SAVE  THE  ARGUMENT  IN  VBUF, 

1728 

00 

,2791 

0 3236 

0 

tc 

VS(3SUB 

DOT  MPAC  WITH  ITSELF, 

1t29 

00 

.2752 

0 0006 

1 

EXTEND 

1730 

00 

,2753 

3 0141 

0 

DCA 

MpAC 

leave  THE  square  OF  THE  LENGTH  OF  THE 

1731 

00 

,2754 

50  104 

1 

index 

FIXLOC 

argument  in  LVSQUARe, 

1732 

00 

,2795 

52  043 

1 

DxCH 

LvSQUARE 

1733 

00 

,2756 

0 3262 

1 

Tc 

SQRTSUb 

GO  Take  the  normalized  square  root. 

173A 

00 

,2797 

10  140 

0 

CCS 

MpAC 

CHECK  for  unit  OVErFLqW, 

1735 

00 

,2760 

1 2762 

1 

TcF 

♦ 2 

MPAC  IS  not  Less  than  ,5  unless  the 

1736 

00 

,2761 

1 2355 

1 

TCF 

DvOvF 

INPUT  TO  SQRTSUB  wAS  0, 

1737 

ou 

,2762 

4 3063 

0 

cs 

FOURTEEN 

SEE  IF  THE  INPUT  WaS  SO  SMALL  THE  THE 

1738 

06 

,2763 

6 0121 

0 

AD 

MPtEMP 

FIRST  TwO  registers  OF  THE  SQUARE  wERE  0 

1739 

00 

,2764 

10  000 

0 

CCS 

A 

1740 

00 

,2765 

4 0000 

0 

COM 

IF  SO,  save  The  negative  of  the  shift 

1741 

00 

,2766 

1 3044 

0 

TCF 

SMALL 

COUNT  -150, 

1742 

09 

,2767 

1 2776 

1 

TcF 

large 

(THIS  IS  usually  the  CASE,) 

1743 

00 

,2770 

4 3062 

1 

CS 

thirteen 

IF  THE  SHIFT  COUnT  WAS  EXACTLY  14,  SET 

1744 

09 

,2771 

54  121 

1 

TS 

MPT^MP 

the  pre-divIde  norm  count  to  -13d, 

1745 

00 

,2772 

3 0140 

1 

CA 

MpAC 

SHIFT  THE  length  RIGHT  14  BEForE  STORING 

1746 

ou 

,2773 

54  001 

1 

SMALL2 

TS 

L 

(SMALL  exits  TO  THIS  POINT), 

1747 

06 

,2774 

3 7653 

0 

CAF 

ZERO 

1748 

00 

,2775 

1 3023 

1 

TCF 

LAR6E2 

GO  TO  store  length  ANO  PROCEED, 

1749 

00 

2776 

10  121 

1 

large 

CCS 

MPTEMP 

MOST  ALL  CASES  COME  HERE, 

1750 

00 

,2777 

1 3005 

0 

TCF 

LARGE3 

SEE  IF  NO  normalization  WAS  REQUIRED  BY 

1751 

00 

,3000 

4 2005 

1 

CS 

SRDDv 

SORT,  and  if  so.  set  UP  FOR  A SHIFT 

1752 

00 

iSOOl 

54  121 

1 

TS 

MPTEMP 

RIGHT  1 before  Dividing  to  produce 

I753 

00 

,3062 

0 0006 

1 

EXTEND 

THE  desired  half  UNIT  VECTOR, 

1754 

00 

,3003 

3 0141 

0 

OCA 

MPAC 

1755 

00 

,3004 

1 3023 

1 

TCF 

largez 

275690 
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1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

l76S 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

l7e4 

1785 

1786 
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00,3005 

4 0000 

0 

LARGE3 

COM 

leave  negative  of  SHIFT  COUNT-1  FOR 

00,3006 

54  121 

1 

TS 

MPTEMP 

predivide  left  shift. 

00,3007 

4 0000 

0 

COM 

PICK  UP  required  shifting  bit  to  uNNOrM- 

00,3010 

50  000 

1 

INDEX 

A 

ALIZE  THE  SORT  RESULT, 

00,3011 

3 7631 

1 

CAF 

BIT14 

00,3012 

54  114 

1 

TS 

BUF 

00,3013 

0 0006 

1 

EXTEND 

00,3014 

7 0141 

1 

MP 

MPAC  ♦! 

00,3015 

56  114 

0 

XCH 

BUF 

00,3016 

0 0006 

1 

extend 

(UNNORMALIZE  the  sort  for  LV). 

00  3017 

7 0140 

0 

MP 

MPAC 

00,3020 

56  001 

0 

XCH 

L 

00,3021 

6 0114 

0 

AD 

BUF 

00,3022 

56  001 

0 

XCH 

L 

00,3023 

50  104 

1 

LARGE2 

INDEX 

FIXLOC 

00,3024 

52  045 

1 

DXCH 

LV 

length  now  stored  in  work  area. 

00,3025 

4 7646 

0 

CS 

ONE 

00,3026 

54  124 

1 

TS 

MAXDvSw 

NO  MAXDV  CASES  IN  UNIT. 

00,3027 

52  107 

0 

DXCH 

VBUF 

prepare  X component  for  divide,  setting 

00,3030 

52  14l 

1 

DXCH 

MpAC 

length  of  vector  As  divisor  in  BuF, 

00,3031 

52  115 

0 

DXCh 

BUF 

00,3032 

o 

o 

0 

TC 

UNITdV 

00,3033 

52  111 

1 

DXCh 

VBUF  +2 

Do  Y and  2 IN  Usual  fAsHion  so  we  can 

00,3034 

52  14l 

1 

OXCH 

MpAC 

exit  through  VROTATeX, 

00,3035 

52  144 

1 

DXCH 

MPAC  +3 

00,3036 

0 3064 

0 

TC 

UNITDV 

00,3037 

52  113 

0 

DXCH 

VBUF  +4 

00,3040 

52  141 

1 

DXCH 

MPAC 

00,3041 

52  146 

0 

DXCH 

MPAC  +5 

00,3042 

0 3064 

0 

tC 

UnItDV 

00,3043 

1 7364 

0 

Tcf 

VROTaTeX 

and  exit. 
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P1787 

Ri789 

1791 

1792 

1793 
1799 

1795 

1796 

1797 

1798 

1799 
isoo 
1801 
1802 
la03 
180A 

1805 

1806 
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if  The  length  of  Tue  argument  vector  was  less  thAN  2(-28,.  eAch  component  Must  be  Shifted  left  at  least 
places  before  the  divide,  note  that  in  this  case,  the  major  part  of  Each  component  is  zEro, 


00,3099 

59  121 

1 

SMALL  TS 

MPTEMP 

00,3095 

3 7653 

0 

CAF 

ZERO 

00,3096 

56  107 

1 

XCH 

VBUF  ♦! 

00,3097 

56  106 

0 

XCH 

vbuf 

00  3050 

56  111 

0 

XCH 

VBUF  +3 

00,3051 

56  llO 

1 

XCH 

VBUF  *2 

00,3052 

56  113 

1 

XCH 

VgUp  +6 

00,3053 

56  112 

0 

XCH 

VBUF  +9 

00,3059 

9 0121 

1 

C5 

MPTeMP 

00,3055 

50  000 

1 

INDEX 

A 

00,3056 

3 7631 

1 

CAF 

0IT19 

00,3057 

0 0006 

1 

EXTEND 

00,3060 

7 0140 

0 

MP 

MpAC 

00,3061 

1 2773 

1 

TCF 

SMALL2 

00,3062 

00015 

0 

THIRTEEN  dEC 

13 

00,3063 

00016 

0 

fourteen  dec 

19 

negative  of  pre-divide  Shift  count, 
SHIFT  each  Component  left  la. 
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1808 

00,3064 

10  140 

0 

UNITDV 

CCS 

MpAC 

1809 

00,3065 

1 3103 

1 

TCF 

UMPAC+ 

1810 

00,3066 

1 3070 

1 

TCF 

♦ 2 

1811 

00,3067 

1 3075 

1 

TCF 

UMPAC- 

1812 

00,3070 

10  141 

1 

CCS 

MPAC  ♦! 

1813 

00,3071 

1 3103 

1 

TCF 

UMPAC+ 

isU 

00,3072 

0 0002 

0 

TC 

G 

1815 

00,3073 

1 3075 

1 

TCF 

UMPAC- 

1816 

00,3074 

0 0002 

0 

TC 

0 

l8i7 

00,30T5 

A 7653 

1 

UMPAC- 

CS 

ZERO 

1818 

00,3076 

54  122 

1 

TS 

dvsign 

I8l9 

00,3077 

0 0006 

1 

EXTEND 

1820 

00,3100 

4 0141 

1 

DCS 

MpAC 

1821 

00,3101 

50  121 

0 

INDEX 

MPTEMP 

1822 

00,3102 

1 2507 

0 

TCF 

MAXTEST 

1823 

00,3103 

54  122 

1 

UMpAC* 

TS 

DvSIGn 

182a 

00,3104 

52  I4l 

1 

DXCH 

MPAC 

1825 

00,3105 

50  121 

0 

INDEX 

MPtEMP 

1826 

00,3106 

1 2507 

0 

TCF 

MAXTEST 

USER'S  OwN  page  NO,  70 


FORCE  MpAC  POSITIVE  IF  POSSIBLE,  SETTING 

dvsign  According  to  thf  sign  of  mpac 
SINCE  the  divisor  IS  ALwAyS  POSITIVE 
HERE. 


EXIT  IMMEDIATELY  ON  ZERO, 


IF  negative,  set  -0  IN  DvSIGN  FOR  FINAL 
COMPLEMENT, 

PICK  uP  absolute  vALuE  OF  ARG  AND  JgMp, 


SET  OvSIQn  Fqr  pgSITIVE  QUoTIEnT, 
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P1827  MISCeI-LaNeOUS  UNARY  OPERATIONS# 


1828 

00,3107 

0 3217 

0 

DsQ 

TC 

DsQsUB 

1829 

00,3110 

1 6016 

0 

TCF 

DANZIG 

1830 

00,3111 

0 7115 

0 

round 

TC 

rQUNDSUB 

1831 

00,3112 

3 7653 

0 

CAF 

Zero 

1832 

00,3113 

1 6013 

1 

TCF 

NEwMODE 

1833 

00,3114 

10  147 

1 

ABVaLAbS  CcS 

MOpE 

1834 

00,3115 

1 3144 

1 

TCF 

ABS 

1835 

00,3116 

1 3144 

1 

TCF 

ABS 

1836 

00,3117 

0 3236 

0 

ABVAL 

TC 

VSQSUB 

1837 

00,3120 

22  147 

0 

LXCH 

MODE 

1838 

00,3121 

0 0006 

1 

EXTEND 

1839 

00,3122 

3 0141 

0 

DCA 

MPAC 

1840 

00,3123 

50  104 

1 

INDEX 

FIXLOC 

I84I 

00,3124 

52  O43 

1 

DXCH 

LVSQUARE 

1842 

00,3125 

0 3262 

1 

SORT 

TC 

SQRTSUB 

18«3 

00,3l2s 

10  121 

1 

CCS 

MPTEMP 

1844 

00,3127 

1 3131 

0 

TCF 

♦2 

1845 

09,3130 

1 6014 

0 

TCF 

DANZIG 

1846 

00,3131 

6 2273 

0 

AD 

NEG12 

1847 

00,3132 

0 0006 

1 

EXTeNd 

1848 

00,3133 

6 3137 

1 

BzMF 

SORTSHFT 

1849 

00,3134 

22  007 

0 

ZL 

I85O 

00,3135 

22  102 

1 

LXCH 

ADDRWD 

1851 

00,3136 

1 2263 

0 

TCF 

GENSCr  *4 

1852 

00,3137 

5O  121 

0 

SORTSHFT 

INDEX 

MPTEMP 

1853 

00,3140 

3 7630 

0 

CAF 

Bills 

1854 

00,3141 

54  121 

1 

TS 

MPTEMP 

1855 

00,3142 

3 7653 

0 

CAF 

ZERO 

1856 

00,3143 

1 2017 

1 

tcf 

MPACsHR  +3 

1857 

00,3144 

0 6710 

1 

abs 

Tc 

branch 

1858 

00,3145 

1 6014 

0 

TCF 

DANZIG 

1859 

00,3146 

1 6014 

0 

TCF 

DANZiG 

i860 

00,3147 

1 7605 

1 

TCF 

COMP 

jUl  9»  1965  (main)  pAGE  87 


USER'S  Own  page  no,  71 


SQUARE  the  dp  contents  OF  MPAC, 


rounds  MpAC  to  double  precision, 
force  dp  mode. 


AbVaL  or  AbS  instruction, 
DO  ABs  ON  SCALAR, 


DOT  MpAC  WITH  ITSELF, 

MODE  IS  NOW  DP  (L  ZERO  AFfER  DAs) , 

STORE  SQUARE  OF  LENGTH  IN  WORK  AREA, 


TAKE  THE  SQUARE  ROOT  Op  MPAC, 

RETURNED  normalized  SQUARE  ROOT,  SEE  IF 
ANY  UN-NOrMALIZATIoN  REQUIRED  AND  EXIT 

If  not, 

A right  shift  of  MORE  than  13  CqULD  8E 

Required  if  input  was  zero  in  mpac»*i, 

GOES  HERE  IN  MOST  CASES, 

IF  A LONG  SHIFT  JS  REQUIRED,  GO  TO 
general  RIGHT  SHIFT  ROUTINES, 

ADOrWD  was  zero  TO  PREVENT  ROUND, 

select  shifting  bit  and  Exit  through 
shift  routines, 

TO  zero  MPAC  *2  IN  THE  PROCESS, 


TEST  SIGN  OF  MPac  ANd  COMPLEMENT  IF 
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1861 

00,3150 

4 7644 

1 

VOEF 

1862 

00,3151 

26  152 

0 

1863 

00,3152 

0 0006 

1 

1864 

00,3153 

5 0000 

1 

1865 

00,3154 

3 0003 

1 

1866 

00,3155 

52  144 

1 

1867 

00,3166 

0 0006 

1 

1868 

00,3157 

5 0152 

1 

1869 

00,3160 

3 0001 

0 

1870 

00,3161 

52  146 

0 

l87l 

00,3162 

4 7646 

0 

1872 

00,3163 

1 6013 

1 

1873 

00,3164 

0 3236 

0 

VSq 

1874 

00,3165 

3 7653 

0 

1875 

00,3166 

1 6013 

1 

1876 

00,3167 

0 0006 

1 

PUSH 

1877 

00,3170 

3 0141 

0 

1878 

00,3l7l 

50  152 

1 

1879 

00,3172 

52  001 

1 

1880 

00,3173 

50  147 

0 

1881 

00,3174 

3 6164 

1 

1382 

00,3175 

26  152 

0 

1883 

00,3176 

10  147 

1 

1884 

00,3177 

1 3212 

1 

1885 

00,3200 

1 6014 

0 

1886 

00,3201 

0 0006 

1 

1887 

00,3202 

3 0144 

0 

1888 

00,3203 

50  152 

1 

1889 

00,3204 

51'775 

0 

1890 

00,3205 

0 0006 

1 

1891 

00,3206 

3 0146 

1 

1892 

00,3207 

5O  152 

1 

1893 

00,3210 

51'777 

1 

1894 

00,3211 

1 6014 

0 

1895 

00,3212 

3 0142 

0 

tpush 

1896 

00,3213 

1 6557 

1 

1897 

00,3214 

50  104 

1 

RVS 

1898 

00,3215 

3 0052 

0 

1899 

00,3216 

1 6651 

1 
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USER'S  Own  page  no,  t2 


cs 

FOUR 

VECTOR  define  - ESSENTIALLY  TREATS 

ADS 

PUSHLOC 

scalar  in  MPAC  AS  X COMPONENT.  PUSHES  UP 

extend 

FOR  V AND  THEN  AGAIN  FoR  Z. 

INDEX 

A 

DCA 

2 

DXCH 

EXTEND 

MPAC  +3 

INDEX 

PUSHLOC 

DCA 

0 

DXCH 

MPAC  45 

cs 

ONE 

MODE  IS  NOW  VECTOR. 

TCF 

NEwMODE 

Tc 

VSQSU8 

pOT  MPAC  WITH  ITSELF. 

CAF 

ZERO 

TCF 

NEWMODE 

MODE  IS  NOW  DP, 

Extend 

PUSH  DOWN  MPAC  LEAVING  IT  LOADED. 

DCA 

MPAC 

INDEX 

PUSHLOC 

PUSH  DOWN  first  TWO  REGISTERS  IN  EACH 

DXCH 

0 

INDEX 

MODE 

increment  pushdown  POINTER. 

CAF 

NO.WDS 

ADS 

PUSHLOC 

CCS 

mode 

TCF 

TPUSh 

PUSH  DOWN  MPAC  *2, 

TCF 

DANZIG 

DONE  FOR  Dp. 

extend 

ON  VECTqR*  pUSH  DqWn  Y AfjO  Z CqMponEnTS, 

DCA 

MPAC  +3 

INDEX 

pushloc 

dxch 

EXTEND 

0 -4 

OCA 

MPAC  +5 

INDEX 

PUSHLOC 

DXCH 

0 -2 

TCP 

DANZjg 

CA 

MPAC  +2 

TCF 

ENDTPUSh  +2 

INDEX 

FIxLOC 

RvQ  - return  IvA  QPrET. 

CA 

OPRET 

TCF 

GOTO  +1 
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P1900 

R1902 

1903 

1904 

I9O5 

1906 

1907 

190g 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

I9I6 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

lg26 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 
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LiST-PROce5SiN(3  jNTeRPReTeR  USeR'S  Own  page  no,  73 

tHE  following  suBrOhtINEs  Are  used  in  sQmAriNG  MpAC,  IN  B07H  tHE  sCAlAr  And  VEC7OR  sENsE.  they  Are 
SPpCIAL  cases  Or  DMPSUB  ANd  DOTSUB,  PUT  IN  TO  SAVg  SOMr  TIM^, 


00,3217 

3 0141 

0 

DsQsUB 

CA 

MPAC  +1 

squares  the  scalar  contents  of  MPAC 

00,32ZO 

0 0006 

1 

EXTeND 

00,3221 

7 0000 

0 

SQUARE 

00,3222 

54  142 

1 

TS 

MPAC  +2 

00,3223 

3 7653 

0 

CAF 

zero 

FORM  2 (CROSS  TERM), 

00,3224 

56  I4l 

0 

XCH 

MPAC  ♦! 

00,3225 

0 0006 

1 

EXTEND 

00,3226 

7 0140 

0 

MP 

MPAC 

00,3227 

20  001 

1 

odoubl 

AND  maybe  OVERFLOW, 

00,3230 

20  142 

1 

DAS 

MpAC  +l 

AND  set  a TO  NET  OVERFLOW. 

00,3231 

56  140 

1 

XcH 

MPAC 

00,3232 

0 0006 

1 

EXTEND 

00,3233 

7 0000 

0 

SQUARE 

0y,3234 

20  14l 

1 

DAS 

MPAC 

00,3235 

0 

0 

0 

0 

0 

tc 

0 

00,3236 

0 0006 

1 

VSQSUb 

EXTENp 

r,OTS  THE  VECTOR  IN  MPac  WITH  ITSELF 

00,3237 

22  123 

1 

QxCH 

DOTRET 

00,3290 

0 3217 

0 

TC 

DSQSUB 

SQUARE  The  X component. 

00,3241 

52  l44 

1 

DXCH 

MPAC  +3 

00,3242 

52  I4l 

1 

DXCH 

MpAC 

00,3293 

52  115 

0 

DXCh 

BUf 

SO  WE  CAN  eN(5  jN  DOTSUB, 

00,3299 

3 ol92 

0 

CA 

MPAC  +2 

00,3295 

54  116 

0 

TS 

BUF  *2 

00,3246 

0 3217 

0 

TC 

DSQSUB 

SQUARE  Y COMPONENT. 

00,3297 

52  142 

1 

DXCH 

MpAC  ♦! 

00,3250 

20  116 

0 

das 

BUF  ♦! 

00,3251 

6 0140 

1 

AO 

MPAC 

00,3252 

6 0114 

0 

AD 

8UF 

00,3253 

54  114 

1 

TS 

BUF 

00,3254 

1 3256 

1 

TcF 

*2 

00,3255 

54  105 

1 

TS 

OVFIND 

IF  OVERFLOW. 

00,3256 

52  146 

0 

pXcH 

MPAC  *5 

00  3257 

52  141 

1 

OXCH 

MpAC 

00,3260 

0 3217 

0 

TC 

DSQSUB 

SQUARE  2 component. 

00,3261 

1 7l63 

0 

TCF 

endoot 

END  AS  IN  DOTSUB, 
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LIST-PROCESSiNs  interpreter  USER’S  OWN  page  no,  74 

P1938  OOijBLE  PRECISION  SQUARE  ROOT  rOuTINE,  tAKE  THE  SQuArE  rOOt  OF  THE  TRI^S-^  PRECISION  (MPAC  +2  ySED  ONly 

R1940  iN  NORMALiZATlONj  CONTENTS  OF  MPAC  AND  LEAVE  THE  NORMALIZED  RESULT  IN  MPAC  (C(MPACj  GREATER  THAN  OR  EQUAL  TO 
R194Z  .5)t  THE  RIGHT  SHIFT  COUNT  (TO  UNNORMALIZE)  IS  LEFT  IN  MPTEMP, 


I943 

00,3262 

3 7653 

0 SQRTSUB 

CAF 

1944 

00,3263 

54  121 

1 

TS 

1945 

00,3264 

10  160 

0 

CCS 

1946 

00,3265 

1 3322 

0 

TCP 

1947 

00,3266 

1 3270 

0 

TCF 

1948 

0y,3267 

1 3312 

0 

TCF 

1949 

00,3270 

56  142 

0 

XCH 

1950 

00,3271 

56  I4l 

0 

XCH 

1951 

00,3272 

54  140 

0 

TS 

I95Z 

00,3273 

3 7652 

1 

CAF 

1953 

00,3274 

54  121 

1 

TS 

1954 

00,3275 

10  140 

0 

ccS 

1955 

00,3276 

1 3322 

0 

TCF 

1956 

00,3277 

1 3301 

1 

TCF 

1957 

00,3300 

1 3315 

1 

TCP 

1958 

00,3301 

56  141 

0 

XCH 

1959 

00,3302 

54  140 

0 

TS 

I960 

00,3303 

3 7652 

1 

CAF 

1961 

00,3304 

26  121 

1 

ADS 

1962 

00,3305 

10  160 

0 

CCS 

1963 

00,3306 

1 3322 

0 

tCF 

1964 

00,3307 

0 0002 

0 

TC 

1965 

00,3310 

1 3315 

1 

TCF 

1966 

00,3311 

0 0002 

0 

tc 

1967 

00,3312 

10  000 

0 

SQRTNEQ 

CCS 

1968 

00,3313 

1 3321 

0 

TCF 

1969 

00  3316 

10  161 

1 

CCS 

1970 

0o;3315 

3 7653 

0 

ZEROANS 

CAF 

I97I 

00,3316 

1 3365 

0 

TCF 

1972 

00,3317 

1 3321 

0 

tcf 

1973 

00,3320 

1 3365 

0 

tCF 

1976 

0y,332l 

0 3321 

1 

sqrtabrt 

TC 

ZERO 

MPtEMP 

START  BY  ZEROING  RIGHT  SHIFT  COUNT, 

MpAc 

SMPAC+ 

♦ Z 

sqrtneg 

CHEcK  for  POSITIVE  ARGUMENT,  SHIFTING 
FIRST  SIGNIFICANT  MPAC  REGISTER  INTO 
MPAC  ITSELF, 

SEE  IF  MAG  OF  ARGUMENT  LESS  THAN  10 (-6) 

MpAC  +2 

MPAC  ♦! 

MpAC 

Seven 

MPTEMP 

MPAC  IS  ZERO  _ SHIFT  LEFT  14, 

augment  right  shift  counter. 

MPAC 

SMPAC+ 

♦ 2 

ZeROANS 

SEE  IF  MPAC  NOW  PNZ, 

Negative  but  leSS  than  io(-4)  in  mag. 

MpAC  +1 
MPAC 
SEVEN 
MpTEMP 

zero  - shift  left  14  again, 
augment  right  shift  counter. 

MPAC 

SMPAC6 

Q 

ZEROANS 

Q 

SQRT(O)  a 6, 

A 

SQRTABRT 

argument  is  negative,  but  see  if  sign- 
corrected  argument  is  less  than  10 (.4, 

MpAC  +1 
ZERO 

IN  magnitude,  if  so,  call  answer  zero, 
force  answer  to  zero  here. 

FIXROOT 

SGRtABRj 

FiXROOT 
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1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

I99I 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 
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LlST.PROCESSjNg  INTERPRETER 

USER'S  Own  Page  no,  75 

00 

3322 

6 2410 

0 

sMpac* 

AD 

-l/2*2 

SEE  if  ARGyMENT  GREAtEr  thAN  OR  EquAL  TO 

00 

.3323 

0 0006 

1 

EXTEND 

.5. 

00 

,3324 

6 337O 

0 

BZMF 

SRTEST 

IF  SO,  SEE  IF  LESS  THAN  .25, 

00 

,3325 

52  141 

1 

DXCh 

MpAC 

WE  WILL  take  the  SQUARE  RqoT  qF  MpAC/2, 

00 

,3326 

22  021 

1 

LXCH 

SR 

SHIFT  RIGHT  1 AND  GO  TO  THE  SORT  ROUTINE 

00 

,3327 

0 0006 

1 

extend 

00 

,3330 

7 7631 

0 

MP 

hauf 

00 

,3331 

52  l4l 

1 

DXCH 

MPAC 

00 

,3332 

56  021 

1 

XCH 

5r 

00 

,3333 

26  141 

1 

AdS 

MPAC  +1 

guaranteed  NO  overflow. 

00 

,3334 

3 2274 

1 

ArGHI 

CAF 

SlOPEHI 

Argument  between  .25  AnD  .5,  get  a 

00 

,3335 

0 0006 

1 

EXTeNd 

linear  approximation  for  this  range. 

00 

,3336 

7 0140 

0 

MP 

MPAC 

00 

,3337 

6 2510 

1 

AD 

biashi 

XO/2  S (MPAC/2) (SLOPEHI)  ♦ BlASHI/2, 

00 

,3340 

54  114 

1 

♦ 4 

TS 

BuF 

xO/2  (ARQLO  enters  HERE), 

00 

,3341 

0 0006 

1 

EXTEND 

00 

,3342 

10  114 

1 

DV 

BUF 

(MPAC/2)/(X0/2) 

00 

,3343 

0 0006 

1 

extend 

00 

,3344 

7 7631 

0 

MP 

HALF 

00 

,3345 

26  114 

1 

ADS 

BUF 

XI  s XO/2  ♦ ,5(MPAC/2)/(X0/2), 

00 

,3346 

0 0006 

1 

EXTEND 

00 

,3347 

7 763i 

0 

MP 

HALF 

FORM  up  Xl/2, 

00 

,3350 

52  141 

1 

DXCH 

MPAC 

SAVE  AND  Bring  out  argument. 

00 

,3351 

0 0006 

1 

EXTeND 

take  dp  quotient  with  XI. 

00 

,3352 

10  114 

1 

DV 

BUF 

00 

,3353 

54  115 

0 

TS 

BUF  *1 

SAVE  MAjOR  PART  OF  QUOTIENT. 

00 

,3354 

3 7653 

0 

CAF 

ZERO 

FORM  minor  part  OF  QUOTIENT  USING 

00 

,3355 

56  001 

0 

XCH 

L 

(remainder, 0). 

00 

,3356 

0 0006 

1 

extend 

00 

*3357 

10  114 

1 

DV 

BUF 

00 

,3360 

54  001 

1 

TS 

L 

IN  preparation  for  DAs, 

00 

,3361 

3 0116 

1 

CA 

BUF  *1 

00 

,33§2 

20  141 

1 

DAS 

MPAC 

X2  » Xl/2  ♦ (MPAC/2)X1 

00 

,3363 

10  000 

0 

CCS 

A 

Overflows  if  argument  wAs  near  posMAx. 

00 

,3364 

3 7626 

1 

CAP 

POSMAX 

00 

• 3365 

54  I4O 

0 

FIXROOT 

TS 

MPAC 

00 

,3366 

54  141 

1 

TS 

MPAC  +1 

00 

,3367 

0 0002 

0 

TC 

a 

return  to  caller  to  unnormalize,  etc. 
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2013 

2014 

2015 

2016 

2017 

2018 

201, 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

20^0 

2041 

2042 

2043 

2044 

204? 
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list-processing  interpreter 


USER»S  OWN  PAGE  NO,  76 


00,3370 

6 7632 

1 

SRTEST 

AD 

QUARTER 

00,3371 

0 0006 

1 

EXTEND 

00,3372 

6 3414 

0 

BZMF 

sqrtnorm 

00,3373 

52  141 

1 

DXCH 

MpaC 

00,3374 

22  OZl 

1 

LXCH 

SR 

00,3375 

0 0006 

1 

EXTEND 

00,3376 

7 7631 

0 

MP 

HALF 

00,3377 

52  141 

1 

DXCH 

MpAC 

00,3400 

56  021 

1 

XCH 

SR 

00,3401 

26  141 

1 

ADS 

MpAC  ♦! 

00,3402 

3 274O 

0 

arglo 

CAF 

SLqRELo 

00,3403 

0 0006 

1 

EXTEND 

00,3404 

7 0140 

0 

MP 

MPAC 

00,3405 

6 2250 

1 

AD 

BlASLO 

00,3406 

1 334O 

1 

TCF 

ArGHI  *4 

00,3407 

0 0006 

1 

sqrtnm^ 

EXTEnD 

00,3410 

3 0142 

0 

DCA 

MPAC  ♦! 

00,3411 

20  142 

1 

DAs 

MpAC  *1 

00,3412 

6 0140 

1 

AD 

MPAC 

00,3413 

26  I4O 

0 

ADS 

MPAC 

00,3414 

24  121 

0 

SORT NqRM 

InCR 

MpTEMp 

00,3415 

0 0006 

1 

extend 

00,3416 

3 0142 

0 

DCA 

MpAC  +1 

00,3417 

20  142 

1 

DAS 

MPAC  +1 

00,3420 

6 OI4O 

1 

AD 

MPAC 

00,3421 

26  140 

0 

ADs 

MPAC 

00,3422 

6 0000 

1 

double 

00,3423 

54  022 

0 

TS 

CYL 

00,3424 

10  022 

0 

NOrMTEST 

CCS 

CYL 

00,3425 

10  022 

0 

CcS 

cYL 

00,3426 

1 3407 

0 

TCF 

SQRTNM2 

00,3427 

1 3334 

1 

tcf 

ARGHI 

00,3430 

1 3402 

0 

TCF 

arglo 

argument  was  less  than  .5,  SEE  IF  LESS 
THAN  .25. 

IF  sOt  begin  normalization, 

IF  between  .5  and  ,25,  SHIFT  RIGHT  1 aND 
START  AT  ARGLO, 


NO  OVERFLOW, 

(NORMALIZED)  ARGUMENT  BETwEEn  ,125  AnD 
.25 


BEGIN  square  ROOT. 

SHIFT  lEET  2 AwD  InCREmEnT  RIGHT  SHIFt 
COUNT  (FOR  TERMINAL  UNNORMALIZATION) , 


(NO  OVERFLOW) . 

FIRST  time  through,  JUST  SHIFT  LEFT  1 
(PUTS  IN  EFFECTIVE  RIGHT  SHIFT  SINCE 
wE  wANT  MPAC/2). 


(AGAIN  NO  OVERFLOW), 


SEE  IF  Argument  now  normalized  at 
GRfaTpR  than  ,125. 

NO  - shift  left  2 more  AND  tRy  AGAIN. 
YES  - NOW  between  ,5  AND  25 
ARGUMENT  NOW  BETWEEN  ,25  AND  .125. 
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P2046 

R20A7 

R20A9 

R2050 

R2051 

R2092 

R2053 


2054 

2055 

2056 

2057 

2058 

2059 
20*0 

2061 

2062 


2063 

2069 

2065 

2066 

2067 

2068 
A2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2002 


lIst-processing  interpreter 


USER'S  OwN  PAGE  NO#  77 


trigonometric  function  package. 

the  following  trigonometric  Functions  are  Available  as  iNtErprftivE  operations! 


1,  SIN  computes  U/2)SINe(2  PI  MpAc). 

2,  cos  computes  (1/2)C0SINE(2  PI  MPAC), 


3.  ASIN  computes  ( 1/2PI ) ARcSINe (2  MPAC). 

9.  ACOS  computes  ( l/2pl ) ARCCOSINE ,2  MPAC), 


sin-asin  anq  cos-acos  are  Mutually  inverse*  Ie  sin(asin(X)>  s x. 


00,3931 

0 6710 

1 

COSiNE 

TC 

Branch 

00,3932 

1 3935 

1 

TCF 

♦3 

00,3933 

1 3990 

0 

TCF 

PrESINE 

00,3939 

1 3990 

0 

TcF 

PReSINe 

00,3935 

0 0006 

1 

+ 3 

extend 

00,3936 

9 0191 

1 

DCS 

MPAC 

00,3437 

52  l9l 

1 

DXCH 

MpAC 

00,3990 

3 7632 

1 

pRESInE 

CAF 

quarter 

00,3991 

26  190 

0 

ADS 

MPAC 

00,3992 

52  19l 

1 

SINE 

OXcH 

MPac 

00,3993 

20  001 

1 

ddoubl 

00,3999 

59  000 

0 

OVSK 

00,3995 

1 395O 

1 

TCF 

♦3 

00,3996 

0 0006 

1 

extend 

00,3997 

9 0001 

1 

DCOM 

00,3950 

52  191 

1 

♦ 3 

dxch 

MPAC 

00,3951 

3 0190 

1 

CA 

MPAC 

00,3952 

6 0000 

1 

DOUBLE 

00,3953 

59  001 

1 

T5 

L 

00,3454 

1 3955 

1 

TCF 

SNl 

00,3955 

50  000 

1 

INDEX 

A 

00,3456 

3 7630 

0 

CAF 

NEQI/2  ♦! 

00,3957 

6 0000 

1 

Double 

00,3960 

0 0006 

1 

fXTeNd 

00,396l 

60  I9O 

1 

su 

MPAC 

00,3952 

59  190 

0 

TS 

MPAC 

00,3963 

9 Ol9l 

1 

C5 

MPac  ♦! 

00,3969 

59  I9l 

1 

TS 

MPAC  ♦! 

Fjnds  cosine  using  The  identity 
COS(X)  = SIN(PI/2  - ABS(X)). 


pI/2  scaled. 


DOUgLE  argument, 

SEE  IF  OVERFLOW  PRESENT, 

IF  NOT*  argument  OK  AS  IS. 

IF  So*  WS  LOST  (qR  GAInED)  PI,  So 
COMPLEMENT  MPAC  USING  THE  IDENTITY 
SlN(X-(+)PI)  . sIN(-X), 

SEE  IF  ARGUMENT  GREATER  THAN  .5  IN 

magnitude,  if  so*  reduce  it  to  less  than 

,5  (♦-PI/2  SCALED)  AS  FOLLOWS: 


IF  POSiTiVE*  FORM  Pi  - X,  iF  NEqATiVE 
USE  -PI  - X. 


GUARANTEED  NO  OVERFLOW. 
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2083 

208* 

2085 

2086 

2087 

2088 

2089 

C2o89 

2O9O 

C2090 

2091 

C2091 

2092 

C2o92 

2093 

C2093 

209* 

2093 

2096 

2O97 

2098 

2099 

2100 

2101 

2102 

2103 

210* 

2105 

210ft 
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list-processing  interpreter 

USER'S  OWN  PAGE  NO.  78 

00 

*3*65 

0 0006 

1 SNl 

EXTEND 

set  up  TO  EVALUATE  HASTINGS  POLYNOMIAL 

00 

*3466 

3 01*1 

0 

DCA 

MRAC 

00 

*3*67 

52  120 

0 

DXCH 

BUF2 

00 

*3*70 

0 3217 

0 

TC 

dsqsub 

SQUARE  MPAC. 

00 

*3*71 

0 7173 

0 

TC 

POLY 

evaluate  fourth  ORDER  POLYNOMIAL. 

00 

*3*72 

00003 

1 

DEC 

3 

00 

*3*73 

1***1 

0 

2dEC 

*.3926990796 

00 

,3*7* 

37325 

1 

00 

*3*75 

53250 

0 

2DEC 

-.6*59637111 

00 

*3*76 

6076* 

1 

00 

*3*77 

121*6 

1 

2DEC 

♦.318758717 

00 

*3500 

21276 

1 

00 

*3501 

75*66 

1 

2DEC 

-.07*7802*9 

00 

*35o2 

71*71 

0 

00 

*3503 

00236 

0 

2DEC 

+.00969*988 

00 

*350* 

32757 

0 

00 

*3505 

3 2*3* 

0 

CAF 

LBUF2 

MULTIPLY  BY  ARGUMENT  AND  SHIFT  LEFT  2. 

06 

*3506 

0 7065 

0 

TC 

DMPSUB  -1 

00 

*3507 

0 0006 

1 

EXTEND 

00 

*35iO 

3 01*2 

0 

DCA 

MRAC  *1 

00 

*35X1 

20  1*2 

1 

DAS 

MpAC  *1 

00 

*3512 

6 01*0 

1 

AD 

MRAC 

00 

*3513 

26  1*0 

0 

ADS 

MRAC 

NEITHER  shift  OVERFLOWS, 

00 

*351* 

0 0006 

1 

extend 

OO 

*3515 

3 01*2 

0 

OCA 

MRAC  *1 

ou 

*35l6 

20  1*2 

1 

DAS 

MRAC  *1 

00 

*3517 

6 01*0 

1 

AD 

MRAC 

00 

*3520 

26  1*0 

0 

ADS 

MRAC 

00 

*3521 

1 601* 

0 

TCF 

DANZIG 
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LlsT-PROCEsSlNe  INjErPREjEr 
P2107  ARCSIN/ARCCOS  ROUTINE. 


2108 

00,3522 

3 3543 

0 

ARCSIn 

CAF 

LASinEX 

2109 

00,3523 

1 3525 

1 

TCF 

♦2 

2U0 

00,3524 

3 3625 

0 

ARCCqS 

CAF 

LDAnZIG 

2111 

00,3525 

54  122 

1 

TS 

ESCAPE 

2112 

00,3526 

0 6710 

1 

tg 

Branch 

2113 

00,3527 

1 3537 

1 

TCF 

ACOSST 

2114 

00,3530 

1 364° 

1 

TCF 

ACOSZERO 

2115 

00,3531 

0 0006 

1 

extend 

2116 

00,3532 

4 0141 

1 

DCS 

mpac 

2117 

06,3533 

52  141 

1 

DxCH 

MpAC 

2118 

00,3534 

3 2247 

1 

CAF 

TCSUBTR 

2II9 

00,3535 

56  122 

0 

XCH 

ESCAPE 

2120 

00,3536 

54  123 

0 

TS 

EsCAPEZ 

2121 

00,3537 

4 7631 

0 

ACOSST 

C5 

Half 

2122 

00,3540 

6 0140 

1 

AD 

mpac 

2123 

00,3541 

10  000 

0 

CCS 

A 

2124 

00,3542 

1 3633 

0 

TcF 

AcOSOVF 

2125 

00,3543 

1 3621 

0 

LASINEX 

TCF 

ASINEX 

2126 

00,3544 

1 3554 

1 

TCF 

AC0SST2 

2127 

00,3545 

10  141 

1 

CCS 

MpAC  +1 

2128 

00,3546 

3 7653 

0 

CAF 

ZERO 

2129 

00,3547 

1 3551 

1 

tcf 

ACOssO 

2130 

00,3550 

1 3554 

1 

TcF 

AcOSSTZ 

2131 

00,3551 

54  141 

1 

ACOS»0 

TS 

MpAC  +1 

2132 

00,3552 

54  140 

0 

TS 

mpac 

2133 

00,3553 

0 0122 

0 

TC 

ESCAPE 

2134 

00,3554 

0 0006 

1 

AC0SST2 

extend 

2135 

00,3555 

4 0l4l 

1 

DCS 

MpAC 

2136 

00,3556 

6 7631 

1 

AD 

HALF 

2137 

0y,3557 

52  141 

1 

DXCh 

MPAC 

2i38 

00,35*0 

52  i2o 

0 

DXCH 

BUF2 

2139 

00,3561 

0 3262 

1 

TC 

SQRTSUB 

2140 

00,3562 

10  121 

1 

CCS 

MPjEMP 

2141 

00,3563 

1 3626 

1 

TCF 

ACOSShR 

jUl  9f  1965  (maiN)  Page  rs 


UsER»5  own  page  no.  79 


CoMpUTE  ArCSin  By  USinG  The  IDEmTiTY 
ARCSIN(X)  B PI/2  - ARCCOS(X). 

(EXITS  Immediately). 

tEst  sign  of  INPUT. 

START  immediately  IF  POSITIVE, 
ARCCOS(O)  ■ PI/2  3 ,25. 

IF  NEGATIVE.  USE  THE  IDENTITY 
ARccOS(X)  = PI  - ARCCOS(-X).  FORCING 

argument  positive. 

set  exit  to  do  above  before 

ARCSIN/ARCCOS  CONSIDERATIONS. 


TEST  Magnitude  of  input. 


THIS  IS  probably  AN  OVERFLOW  CASe. 


NO  OVERFLOW  - PROCEED. 

IF  major  part  is  .5.  CALL  ANSWER  0 
UNLESS  MINOR  PART  NEGATIVE. 


NqW  that  argument  is  In  pRopER  RAnGE. 
BEGIN  computation.  USE  HASTINGS 
approximation  ARCCOstX)  s sQRt ( 1-X) P (X) 
iN  A scaled  VeRSiON  WheRE  P(X)  jS  a 
SEVENTH  ORDER  POLYNOMIAL. 

Returns  wjTh  normaLjZed  square  root. 

sEE  IF  uN-NORMALIZAjION  REOylREO. 

IF  SO, 
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LIsT-PROCEssING  interpreter 


2lA2 

00,3564 

52  l4l 

1 

AC0S3 

2U3 

00,3565 

52  120 

0 

2144 

00,3566 

52  141 

1 

2145 

00,3567 

0 7173 

0 

2146 

00,3570 

00006 

1 

2147 

00,3571 

13240 

0 

C2147 

00,3572 

23630 

0 

2148 

00,3573 

74721 

0 

C2148 

00,3574 

47775 

1 

2149 

00,3575 

02440 

0 

C2l49 

00,3576 

20237 

0 

2150 

00,3577 

75067 

1 

C2150 

00,3600 

70742 

1 

2151 

00,3601 

03436 

0 

C2151 

00,3602 

26756 

1 

2152 

00,3603 

74037 

0 

C2152 

00,3604 

5764O 

1 

2153 

00,3605 

03046 

0 

C2153 

00,3606 

07143 

0 

2154 

00,3607 

76654 

1 

C2154 

00,3610 

42244 

0 

2155 

00,3611 

3 2434 

0 

2156 

00,3612 

0 7065 

0 

2157 

00,3613 

0 0122 

0 

2158 

00,3614 

0 0006 

1 

SUbTR 

2169 

00,3615 

4 0141 

1 

2160 

00,3616 

6 7631 

1 

2161 

00,3617 

52  I4I 

1 

2162 

00,3620 

0 0123 

1 

2163 

00«3621 

0 0005 

1 

ASINEX 

2164 

00,3622 

4 0141 

1 

2165 

00,3623 

6 7632 

1 

2166 

00,3624 

52  141 

1 

2167 

00,3625 

1 6014 

0 

LDANZig 

USER'S  OWN  PAGE  N0» 

80 

OXCH 

DXCH 

DXCH 

MpAC 

BuF2 

MPAC 

SET  UP  for  polynomial 

EVALUATION. 

TC 

DEC 

20EC 

POLY 

6 

♦,353553385 

COEFFICIENTS  ARE  C 2 {+ 1 ) /p i SORT <2)  WHERE 

2dEC« 

-.0483017006 

B+14  I 

2DEC4 

+.0200273085 

B+2«  WHERE  C STANDS  FOR  ORIGINAL  COEFfS. 

2DEC« 

-.0112931863 

B+3* 

2DEC» 

+.00695311612 

B+4« 

2DEC« 

-.00384617957 

B + 54 

2dEC* 

+.001501297736  B+6* 

2DEC* 

-.000284160334  B+79 

CAP 

TC 

TC 

LBUF2 
OMPSUB  -1 
ESCAPE 

DO  final  multiply  and 
EPILOGUE  SEQUENCES. 

GO  TO  ANY 

extend 

DCS 

AO 

DXCH 

TC 

MPAC 

HALF 

MPAC 

ESCApE2 

epilogue  for  negative 

FORMS  PI  - ARCCOS(-X) 
Go  To  possible  ARCSIn 

INPUTS  TO  ARCC°S. 
s ARCCOS(X). 
EpILoGUE. 

EXTEND 

DCS 

AD 

DXCH 

TCP 

MpAC 

QUARTER 

MpAC 

DANZjg 

ARcsiN  Epilogue  - get 

s PI/Z  - ARCCOS(X). 

ARCSIN<X) 

275690  YUl.  system  FOR  BLK25  REylSlON  0 OF  PROGRAM  REjREDA9  By  NA$A  2021100 


JgL  9,  1965  (mAINJ  PAGE  97 


LIST-PROCESSING  INTERPRETER 


USER'S  OwN  PAGE  NO.  gl 


2168 

00.3626 

21&9 

00,362? 

2I7O 

00,3630 

2171 

00,3631 

2172 

00,3632 

2173 

00,3633 

2174 

00,3634 

2175 

00,3635 

2I76 

00,3636 

2177 

00,3637 

2178 

00,364n 

2179 

00,3641 

50  000 

1 

ACOSShR 

INDEX 

A 

3 7631 

1 

CAF 

BITU 

54  121 

1 

TS 

MpTEMp 

0 2054 

1 

TC 

VSHRRNd 

1 3564 

1 

TCF 

AC0S3 

10  000 

0 

AcOSOVF 

CCS 

A 

1 3636 

0 

tcf 

*2 

1 3551 

1 

TCF 

ACOSsO 

1 3551 

1 

TCF 

ACOSsO 

0 3637 

0 

ACOSAbRT 

TC 

3 7632 

1 

ACOSZERO 

CAF 

quarter 

1 3552 

1 

TCF 

ACOSsO 

The  Shift  righT  iS  less  than  ia  siNce 

THE  INPUT  WAS  NON-ZERO  Dp. 

DP  shift  right  and  ROUND. 

PROCEED, 

IF  Major  part  was  only  i more  than  .s, 

CALL  answer  0. 


ACOS(o>  ® PJ/2. 

SET  MPAC  AND  EXIT  VIA  ESCAPE, 
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LIST-PROCeSSING  interpreter  USER'S  OWN  page  no,  82 

p2i8o  the  Following  instructions  Are  available  for  setting*  modifying,  and  Branching  on  index  rEgisterSj 


R21s2 

I. 

AXT 

ADDRESS  TO  INDEX  TRUE, 

R2183 

1. 

AXC 

ADDRESS  TO  INDEX  COMPLEMENTED. 

R2184 

3. 

LXA 

LOAD  INDEX  FROM  ERASABLE. 

R2185 

A. 

LXC 

load  index  complemented  from  erasable. 

R2186 

5. 

SXA 

STORE  INDEX  IN  ERASAB|.E. 

R2I87 

6* 

XCHX 

EXCHANGE  INDEX  REIGSTEr  WITH  ERASABLE. 

R2I88 

7. 

inCr 

Increment  index  register. 

R2189 

8. 

XAD 

ERASABLE  ADD  TO  INDEX  REGISTER. 

R2190 

9, 

xsu 

erasable  Subtract  from  index  register. 

R2I91 

10, 

TIX 

Branch  on  index  register  and  decrement. 

2192 

01,2000 

SETLOc 

12000 

SUFFIX  class  01  IS  IN  BANK  1, 

2193 

01,2000 

0 2061 

1 

AxT 

TC 

tagsub 

select  Appropriate  index  register. 

2l9A 

01,2001 

3 0103 

0 

CA 

POLISH 

2195 

01,2002 

50  llA 

0 

XSTORE 

INDEX 

INDExLOC 

contains  C(FIxLOC)  or  C(FIxL0C)+1, 

2196 

01,2003 

5A  0A6 

I 

TS 

XI 

2197 

01,2004 

1 601A 

0 

TcF 

DANZIG 

21971 

01,2005 

0 2061 

1 

AXC 

TC 

TAGSUB 

21972 

01,2006 

A 0103 

1 

cs 

POLISH 

21973 

01,2007 

0 2002 

1 

TC 

XSTORE 

2198 

01,2010 

0 2061 

1 

LXA 

TC 

TAqSUB 

load  index  from  erasable. 

2199 

0i,20ll 

50  102 

1 

INDEX 

ADORWD 

2200 

01,2012 

3 0000 

1 

CA 

0 

2201 

01,2013 

1 2002 

0 

TCF 

XSTORE 

22q2 

gl,2nlA 

0 256I 

1 

LXC 

TC 

tagsub 

load  index  from  erasable  complemented, 

2203 

01,2015 

50  102 

1 

INDEX 

ADDRWD 

2204 

01,2016 

4 0000 

0 

CS 

0 

2205 

01,2017 

1 2002 

0 

TCF 

XstORE 

2206 

01,2020 

0 2061 

1 

SXA 

TC 

TAGSUB 

store  index  in  erasable. 

2207 

01,2021 

50  llA 

0 

index 

INDEXLOC 

2208 

01,2022 

3 0096 

0 

CA 

XI 

2209 

01,2023 

1 6626 

1 

TCf 

STOReI 

(store  sinqLe  precision  Before  exit). 

2210 

01,2024 

0 2061 

1 

XCHx 

TC 

TAG5UB 

exchange  index  rEGIsTEr  with  ErAjABlE 

2211 

01,2025 

50  102 

1 

INdeX 

AddRWd 

2212 

01,2026 

3 0000 

1 

CA 

0 

2213 

01,2027 

50  llA 

0 

INDEX 

INDEXLOC 

2214 

01,2030 

56  0A6 

0 

XCH 

XI 

2215 

01,2031 

1 6626 

1 

TCF 

storei 
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LIst-PROCEssING  INtERPREtER 


USER'S  OMN  page  N0>  83 


2216 

01,2032 

0 2061 

1 

XAD 

TC 

tagsub 

2217 

01,2033 

50  102 

1 

INDEX 

ADDRWD 

2218 

01,2034 

3 0000 

1 

CA 

0 

2219 

01,2035 

50  114 

0 

XAD2 

INDEX 

INDEXLOC 

2220 

01  2036 

26  046 

1 

ADS 

Xl 

2221 

01,2037 

1 6014 

0 

TCF 

DANZIG 

2222 

01  2040 

0 2061 

1 

INCR 

TC 

tagsub 

2223 

01,2041 

3 0103 

0 

CA 

polish 

2224 

01,2042 

1 2035 

1 

TCF 

XAD2 

2225 

01,2043 

0 2061 

1 

xsu 

TC 

TAGSUB 

2226 

01,2044 

50  102 

1 

INDEX 

ADDRWD 

2227 

01,2045 

4 0000 

0 

CS 

0 

2228 

01,2096 

1 2035 

1 

TCF 

XAD2 

2229 

01,2047 

0 2061 

1 

TlX 

tc 

tAGsuB 

2230 

01,2050 

50  114 

0 

INDEX 

INDEXLOC 

2231 

01,2051 

4 0046 

1 

CS 

XI 

2232 

01,2052 

50  114 

0 

INDEX 

INDEXLOC 

2233 

01,2053 

6 0046 

0 

AD 

XI 

2234 

01,2054 

0 0006 

1 

EXTeND 

2235 

01,2055 

6 6014 

1 

bzmf 

DANZIG 

2236 

01,2056 

50  114 

0 

dotixbr 

index 

INDEXLOC 

2237 

01,2057 

56  046 

0 

XCH 

XI 

2238 

01,2060 

1 6650 

0 

TCF 

goto 

R2239 

subrouTjNe  whiCh  Sets 

The  address  of  t^e  speCjpied  index 

2241 

01,2061 

3 0104  1 

tAGSuB  CA 

FIXLOC 

2242 

01,2062 

54  114  1 

TS 

INDEXLOC 

2243 

01  2063 

10  020  1 

CCS 

CyR 

2244 

0i;2064 

24  114  0 

INCR 

INDEXLOC 

2245 

01,2065 

0 0002  0 

TC 

0 

2246 

01,2066 

0 0002  0 

TC 

0 

Erasable  ado  to  index. 


IGNORING  overflows. 


increment  index  register. 


erasable  subtract  fRom  Index, 


branch  and  decrement  on  index. 


NO  operation  Ip  decremented  index  is 
negative  or  zero. 


ignoring  OvERPLOWS, 

do  the  branch  using  the  cadr  in  polish. 


INDEXLOC.  (ACTUALLY,  ThE  ADDRESS  -38D,) 


BIT  15  SPECIFIES  INDEx, 
0 means  use  X2. 


1 FOR  XI 
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list-processing  interpreter 


US£R*S  own  page  no,  84 


p2247  MISCEULANEOUS  OPERATION  CoDES  WITH  DirECT  ADDrESSES,  INCLUDED  HErE  ArE! 


R224R 

1, 

ita 

RZ251 

2, 

CALL 

R2253 

3, 

RTB 

R2255 

BHIz 

R2257 

5, 

BOV 

R2258 

6« 

GOTO 

STORE  QPrET  (RETURN  ADDRESS)  IN  ERASABLE, 

CALL  A Subroutine,  leaving  return  in  qpret. 

RETURN  TO  BASIC  LANGUAGE  AT  ThE  GIVEN  ADDRESS, 

Branch  if  the  high  order  of  mpac  is  zEro  (single  precision), 

BRANCH  ON  OVERFLOW, 

SIMPLE  SEQUENCE  CHANGE, 


2259 

01,2067 

10  020 

1 

rtb/bhiz 

CCS 

CYR 

2260 

01,2070 

3 0103 

0 

RTB 

CA 

POLISH 

2261 

01,2071 

1 4105 

0 

TCF 

bankjump 

CALL  BASIC  ROUTINE, 

2262 

01,2072 

10  140 

0 

bhiz 

CCS 

MPAC 

2263 

01,2073 

1 6014 

0 

TCF 

DANZIG 

2264 

01,2074 

1 6650 

0 

TCF 

GOTO 

2265 

01,2075 

1 6014 

0 

TCF 

DANZIG 

2266 

01,2076 

1 6650 

0 

TCF 

GOTO 

2267 

01,2077 

10  105 

1 

bOV(0) 

CCS 

OVFINd 

branch  on  OVERFLOW  TO  bASIc  Or  INTErP 

2268 

01,2100 

1 2102 

1 

TCF 

*2 

2269 

01,2101 

1 6014 

0 

TCF 

DANZiG 

2Z7O 

01,2162 

54  105 

1 

TS 

OVFIND 

2271 

01,2103 

10  020 

1 

CCS 

CYR 

2272 

01,2164 

1 2070 

0 

TCP 

RTB 

IF  BASIC, 

2273 

0i,2l05 

00360 

1 

B5T0B8 

OCT 

360 

2274 

01,2106 

1 6650 

0 

TCF 

GOTO 

275690  YUl  system  fOR  BlK2«  REViSiON  0 Op  PROqRam  RETRED^'^  BY  NASA  2021100 


jU|_  9*  1965  (maiN)  Page  loi 


LIst-PROCEssING  INtErPREtEr  UjER's  own  page  no.  85 


2275 

01.210? 

10  ozo 

1 

BzE/GOTO 

CCS 

CyR 

SEE  WHICH  OP-CODE  IS  DESIRED, 

2276 

Ol.ZllO 

0 6710 

1 

TC 

branch 

DO  BZE. 

2277 

01.2U1 

1 6014 

0 

TCF 

OANZiG 

2278 

0i«2U2 

1 6650 

0 

TCF 

GOTO 

DO  GOTO. 

2279 

01.2113 

1 6014 

0 

TCF 

DANZIG 

2280 

01.2114 

10  020 

1 

bPL/0MN 

CCS 

CYR 

2281 

01.2115 

1 2123 

1 

TCF 

BPL 

2282 

01.2116 

12000 

1 

5B10 

DEC 

5 B+10 

Shifts  op  code  iN  switch  instruction  adr 

2283 

01,2117 

0 6710 

1 

TC 

branch 

DO  BMN. 

2284 

01.2120 

1 6014 

0 

TCF 

DANZiQ 

2285 

01.2121 

1 6014 

0 

TCF 

DANZIG 

2286 

01.2122 

1 6650 

0 

TCF 

goto 

ONLY  IF  NNZ. 

2287 

01.2123 

0 6710 

1 

BPL 

TC 

branch 

2288 

01.2124 

1 6650 

0 

TCF 

GOTO 

IF  posItIvE  or  zero. 

2289 

01.2125 

1 6650 

0 

TCF 

GOTO 

22<,0 

01.2126 

1 6014 

0 

TCF 

DANZIQ 

2291 

01.2127 

10  020 

1 

call/ita 

CCS 

CYR 

2292 

01.2130 

1 6643 

1 

TCF 

CALL 

2293 

01,2131 

00017 

1 

L0W4 

oCT 

17 

mask  used  by  switch  Instructions. 

2294 

01.2132 

50  i04 

1 

INDEX 

FIXLOC 

STORE  QPRET. 

2295 

01,2133 

3 0052 

0 

CA 

OPRET 

22,6 

01,2134 

1 6626 

1 

TCF 

STOREl 
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R2299 

R2300 

R2301 

R2302 

R2303 

R2304 

R2305 

R2306 

R2307 

R2308 

R2309 

R2310 

R2311 

R2312 


LIsT-PROcESSING  interpreter 


USER'S  OWN  Page  noi  es 


THE  Following  operations  are  available  for  altering  and  testing  interpretive  switches* 


00 

80NSET 

01 

setgo 

02 

80FSET 

03 

SET 

SET  A SWITCH  AND  OO  A GOTO  IF  IT  WAS  ON, 

SEt  a switch  and  Do  a goto# 

SET  A switch  and  DO  A GOTO  IF  iT  WAS  OFF 

SET  A SWITCH. 


04 

BoNINV 

05 

INVGO 

06 

BOFINV 

07 

invert 

invert  A SWITCH  And  branch  if  it  was  on. 
invert  a switch  and  do  a goto, 
invert  a switch  and  branch  if  It  was  off 
invert  a switch# 


10 

BONCLR 

clear 

11 

CLRGO 

CLeAR 

12 

BOFCLR 

clear 

13 

CLEAR 

clear 

A switch  and  Branch  if  it  wAs  on, 

A SWITCH  ANo  DO  A GOTO, 

A Switch  and  branch  if  it  wAs  off, 
A switch. 


14  BON  branch  if  a SWITCH  WAS  ON, 

16  BOFF  branch  IF  A SWITCH  WAS  OFF, 


R2313 


THE  ADDRESS  SUPPLIED  WITH  THE  SWITCH  INSTRUCTION  IS  INTERPRETED  AS  FoLLoWSI 


R23i5 

R2316 

R2317 


BITS  1-4  SWITCH  BIT  NUMBER  (l-l5). 

BITS  5-8  SWITCH  OPERATION  NUmBER, 

BITS  9-  SWITCH  WORD  NUMBER  (UP  TO  64  SWITCH  wORDS), 


R2318  THE  address  ITSElF  IS  MADE  Up  By  THE  YUL  SYSTEM  ASSEMBLER,  THE  BRAnCH  INSTRUCTIONS  REnUlRE  TWO 

R2320  addresses.  THE  SECOND  lAKEN  Aj  THE  DireCt  (OR  INDIRECT  IF  IN  ERASABLE)  ADDRESS  OF  THE  BRANCH, 


2322 

01.2135 

2323 

01,2136 

2324 

01,2137 

2325 

OI.2I4O 

2326 

01,2141 

2327 

01,2142 

2328 

01,2143 

2329 

01,2144 

2330 

01,2145 

23305 

01,2146 

2331 

01,2147 

2332 

01,2150 

2333 

01,2151 

3 2131 

0 

switches  caF 

L0W4 

7 0103 

1 

MASK 

POLISH 

50  000 

1 

INDEX 

A 

3 763° 

0 

CAF 

BITI5 

54  115 

0 

TS 

SWBIt 

3 7637 

1 

CAF 

BITS 

0 0006 

1 

extend 

7 0103 

1 

MP 

polish 

54  114 

1 

TS 

SWWORD 

0 0004 

0 

INHINT 

50  000 

1 

index 

A 

3 0620 

0 

CA 

state 

54  002 

1 

TS 

0 

leave  the  switch  bit  in  SWbIT  , 
(NUMBER  from  LEFT  TO  RIGHT.) 
LEAVE  THE  SWITCH  WORD  NUMBER  IN 

During  switch  change  So  rupT  can 
Leave  the  switch  word  itseLF  in  i 

0 Will  be  used  as  a channel. 


swword 


USE  Too 


275690 

2334 

2335 

2336 

2337 

233b 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 
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list-processing  interpreter 

USER'S  OwN  PAGE  NO.  87 

01,2152 

3 7634 

1 

CAF 

BiTll 

01,2153 

0 0006 

1 

pXTeNd 

nispATcH  Switch  bit  operation  as  in  bits 

01,2154 

7 0103 

1 

Rp 

POLISH 

7-8  OF  POLISH. 

01,2155 

7 2215 

1 

MASk 

B3T0B4 

GETS  4X2-BIT  CODE. 

01,2156 

5O  000 

1 

INDEX 

A 

01,2157 

1 2160 

0 

TCF 

♦ 1 

01,2160 

3 0115 

1 

♦1 

CA 

SWbIT 

00  - SET  SWITfH  IN  QUESTION. 

01,2161 

0 0006 

1 

Extend 

01,2162 

04  002 

1 

ror 

Q 

01,2163 

1 21t2 

0 

TCF 

SWSTORE 

01,2164 

3 0115 

1 

♦ 5 

CA 

sweiT 

01  . InVErT  SWITCH. 

01,2165 

0 0006 

1 

EXTeNd 

01,2166 

06  002 

0 

RXOR 

Q 

01,2167 

1 2172 

0 

TCF 

SWSTORE 

01,2170 

4 0115 

0 

♦ 9D 

C5 

SWBiT 

10  - clear. 

01,2171 

7 0002 

1 

MASK 

Q 

01,2172 

50  llA 

0 

SWSTOrE 

INDEX 

SWWOrD 

01,2173 

54  620 

1 

TS 

state 

New  SWITCH  WORD. 

275690 

2352 

23525 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2366 

2367 

2368 

2369 

2370 

2371 

2372 
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01.2174 

01.2175 

01.2176 

01.2177 
q1,22oo 
01,2201 
01,2202 

0 0003  1 
3 7632  1 
0 0006  1 
7 0103  1 
7 2215  1 
50  000  1 

1 2203  0 

♦ 13D 

RELINT 

CAF 

extend 

MP 

MASK 

INDEX 

TCF 

BIT13 

polish 

B3T0B4 

A 

♦ 1 

11  - NOOP, 

dispatch  sequCE  changing  or  Branching 
CODE, 

ORIGINALLY  STORED  IN  BITS  5-6, 

01.2203 

01.2204 

01.2205 

01.2206 

4 0002  1 
7 0115  0 
10  000  0 
1 2216  1 

+ 1 

TEST 

CS 

mask 

CCS 

TCF 

0 

SWBIT 

A 

SWSKIP 

00  - branch  if  on. 

01,2207 

1 6702  0 

♦ 5 

TCF 

SWBRANCH 

01  - GO  TO, 

01,2210 

1 2216  1 

TcF 

SWSKIP 

HERE  ONLY  ON  bIT  15, 

01,2213 

SETLOC 

+ 2 

01,2213 

01,22U 

3 0002  0 
1 2204  1 

♦ 9D 

CA 

TCF 

0 

test 

10  - branch  if  off. 

01,2215 

00014  1 

b3T0b4 

OcT 

14 

q1 ,2216 

24  150  0 

SWSKIP 

INCR 

LOC 

01,2135 

sw/ 

EQUALS 

switches 

01,22W 

1 6014  0 

♦ 13D 

TCF 

DANZIG 

11  - NOOP, 

01,2220 

endintsi 

EQUALS 
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INjER-BANK  communication  USER'S  OWN  PAGE  NO.  1 


ROOOl 

the  following  routine  can  be  used  to  call  a subroutine  in  Another  bank,  in  the  bankcall  version,  the 

R0003 

cADR  OF  the  Subroutine  immediately  follows  the 

tC  bankcall  instruction,  with  C(A)  and  C(L)  preserved. 

0005 

4063 

SETLOC 

endintff 

0006 

4063 

52  120  0 

BAnKCALL 

dxch 

BUF2 

SAVE  incoming  *,L. 

0007 

4064 

50  002  0 

index 

0 

PICK  UP  CAdR. 

0008 

4065 

3 0000  1 

CA 

0 

0009 

4066 

24  002  0 

I NCR 

Q 

SO  WE  RETURN  TO  THE  LOC,  AFTER  THE  CADR 

ROOlO 

SwCALL  IS  identical 

TO  BANKCALL 

,,  Except 

that  THE  CADR  ARRIVES 

IN  A. 

OOlZ 

A067 

54  001  1 

swcall 

TS 

L 

0013 

4O7O 

22  004  0 

LXCH 

fbank 

SWITCH  banks,  saving  RETURN. 

0014 

4071 

7 6425  0 

MASK 

LOWIO 

GET  SuB-ADORESS  OF  CADR. 

0015 

A072 

56  002  0 

XCH 

0 

A.L  NOW  CONTAINS  DP  RETURN. 

ools 

A073 

52  120  0 

DXCH 

BUF2 

RESTORING  INPUTS  IF  THIS  IS  A BANKCALL, 

0017 

A074 

50  002  0 

INDEX 

Q 

0018 

4O75 

0 2000  0 

TC 

10000 

SETTING  Q TO  SWRETURN, 

0019 

4076 

56  120  1 

SWrETUrN 

XCH 

BUF2  +1 

Comes  hErE  To  rETUrn  To  called,  C(A,d 

0020 

4077 

56  004  0 

XCH 

F0ANK 

are  preserved  For  Return, 

0021 

4100 

56  I2O  1 

XCH 

BUF2  ♦! 

0022 

4101 

0 0117  0 

TC 

BUF2 

R0023 

tHE  following  routine  can  be  used  As  a 

unilateral  JuMP  WItH  C(A,L)  preserved  and  the  CADr  immediately 

R0025 

following  The  tc  postjump  instruction. 

0026 

4102 

56  002  0 

POstUu^P  xch 

Q 

SAVE  INCOMING  C(A), 

0027 

4103 

50  000  1 

index 

A 

get  CADR. 

0028 

4104 

3 0000  1 

CA 

0 

R0029 

BANKJuMP  is  THg  SAMg 

AS  POSTJUMP,  eXcePT  THAT 

THg  cAdR  arrives 

IN  A, 

0031 

4105 

54  004  1 

BANKJUMP 

TS 

fbank 

0032 

4106 

7 6425  0 

MASK 

LOWIO 

0033 

4107 

56  002  0 

XCH 

0 

RESTORING  INPUT  C(A>  IF  THIS  WAS  A 

0034 

4110 

50  002  0 

INDEX 

0 

pOSTJUMp. 

0035 

41U 

1 2000  1 

TcF 

10000 
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inter-bank  Communication  user's  own  page  no*  2 

POO35  THE  FOLLOWING  ROUTINE  GETS  THE  RETURN  CADr  sAyED  By  SwCALL  OR  BANKCAlL  AND  LfAvES  IT  IN  A, 


0038 

4112 

3 

6425 

1 

MAICECADR  CAF 

LOWlO 

0039 

4113 

7 

0117 

1 

MASK 

BUF2 

OOaO 

4U4 

6 

0120 

1 

AO 

BUF2  ♦! 

0041 

4115 

0 

0002 

0 

tc 

Q 

pOOA2  THE  Following  routine  obtains  the  two  worDs  beginning  at  the  adDrEss  Arriving  in  a,  and  leaves  them  in 

R0044  A*L« 


0045 

4116 

54  001  1 

DAtACALL 

T5 

L 

0046 

4U7 

22  004  0 

LXCH 

FBANk 

OO47 

4120 

22  121  0 

LXCH 

MPTEMP 

SAVE  FORMER  BANK 

0048 

4121 

7 6425  0 

MASK 

LOWlO 

0049 

4122 

0 0006  1 

EXTEND 

OO5O 

4123 

5 0000  1 

INDEX 

A 

0051 

4124 

3 2001  1 

DCA 

10000 

0052 

4125 

56  121  0 

XcH 

MPTeMP 

0053 

4126 

54  004  1 

TS 

FBANK 

restore  FBANK. 

0054 

4127 

3 0121  0 

CA 

MPTEMP 

0055 

4130 

0 0002  0 

TC 

Q 

0056 

4131 

EnDIBnKF 

Equals 

275690 

0001 

R0002 

0003 

0004 

000; 

0006 

0007 

0008 

0009 

0010 

0011 

R0012 

00l« 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

R0O22 

0024 

0025 

0026 

0027 

0028 

0029 

R0030 

0031 

0032 

0033 

0034 


YUL  system  FOR  BLK2. 

executive 

TO  enter  a 


To  Enter  a 


T°  suspend 
to  suspend 
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USER'S  OWN  page  no.  I 

4131  SETLOC  enoibnkf 


JOB  Request  requiring  no  vac  area: 


4131 

54  632 

1 

NOVAC 

Ts 

newprio 

SAVE  priority  of  NEW  JOB, 

4132 

0 0006 

1 

EXTeND 

4133 

5 0002 

0 

INDEX 

0 

0 will  be  undisturbed  throughout. 

4134 

3 0001 

0 

dca 

0 

2CADR  OF  JOB  ENtERED, 

4135 

52  63A 

1 

dxch 

NeWLOC 

4136 

3 4214 

1 

CAF 

EXECBANK 

A137 

56  004 

0 

XCH 

fbank 

A140 

54  626 

1 

TS 

EXECTEMI 

4141 

1 2241 

0 

TCF 

N0VAC2 

ENTER  EXECUTIVE  BANK. 

JqB  request  requiring  a vac 

AREA  - 1 

E«G»*  All 

(pARTlALLY)  iNTERpRETIVE  JoBS. 

4i42 

54  632 

1 

FInDVAC 

TS 

NEWPRIO 

A143 

0 0006 

1 

extend 

4144 

5 0002 

0 

index 

Q 

A145 

3 0001 

0 

DCA 

0 

A146 

52  634 

1 

DXCH 

NEWLOC 

4I47 

3 4214 

1 

CAF 

execbank 

Also 

56  004 

0 

XCH 

FBANK 

4151 

1 2220 

1 

tcf 

F1NDVAC2 

OFF  TO  EXECUTIVE  SWi TChED-BANK. 

A BA5IC  JOB  sO  A 

higher  priority  job  may  be  sERVICEDi 

4l52 

3 4214 

1 

changi 

CAF 

EXECBANK 

A153 

54  001 

1 

TS 

L 

4154 

3 0062 

0 

CA 

Q 

A155 

22  006 

1 

♦ 3 

LXCH 

bbank 

A156 

0 0004 

0 

INHINt 

4157 

1 2316 

0 

TCF 

CHANjOB 

AN  interpretive  JOB 

1 

4160 

3 4214 

1 

CHANq2 

CAF 

execbank 

4161 

54  001 

1 

TS 

L 

A162 

4 0150 

1 

cs 

LOC 

NEGATIVE  LOC  SHOWS  jOB  INTERPRETIVE 

4163 

1 4l55 

0 

TCF 

changi  *3 
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executive  USER’S  OWN  PAGE  NO.  2 

p0037  To  voluntarily  SUSrEnD  A jqB  UNTIL  THE  COMPLETION  QF  SqME  ANTICIPATED  EVENT  ll/o  EVENT  ETC.!! 


0039 

4164 

54  150 

1 

jobsleep  ts 

LOC 

0040 

4165 

3 4214 

1 

CAF 

execbank 

0041 

4166 

54  004 

1 

TS 

fbank 

0042 

4167 

1 2375 

0 

TCF 

JOBSLPl 

R0043 

TO 

awaken 

A 

JOB  PUT 

TO  SLEEP  IN 

1 THE  ABOVE  FASHION! 

0044 

4170 

54  633 

0 

jobwake  ts 

newloc 

0045 

4171 

4 7645 

0 

cs 

TWO 

EXIT  IS  VIA  FINdVAC/NOVAC  PROCEDURES, 

0046 

4172 

26  002 

1 

ADS 

Q 

0047 

4173 

3 4214 

1 

CAF 

EXECBANK 

0048 

4174 

56  004 

0 

XCH 

fbank 

0049 

4175 

1 2406 

0 

TCF 

J0BWAKE2 

R0050 

TO 

Change 

The  PRIORITY  OF  A 

JOS 

i CURRENTLY  UNDER  EXECUTION: 

0051 

4176 

0 0004 

0 

PRIOCHNG  INHINT 

NEw  Priority  arrives  in  a.  returns  to 

0052 

4177 

54  632 

i 

TS 

NEWPRIO 

caller  as  soon  AS  new  jOB  priority  is 

OO53 

4200 

3 4214 

1 

CAF 

Execbank 

highest.  Prepare  for  possible  basic- 

0054 

4201 

56  006 

1 

XCH 

BBANK 

style  CHAnGE-JoB, 

0055 

4202 

54  I5l 

0 

TS 

bankset 

0056 

4203 

3 0002 

0 

CA 

Q 

0057 

4204 

1 2454 

1 

TCF 

PRI0CH2 

R0058 

TO  Remove 

A 

Joe  pMOM 

EXECUTIVE 

CONSIDERATIONS! 

0059 

4205 

3 4214 

1 

ENDOFJOB  CAF 

EXECBANK 

0060 

4206 

54  004 

1 

TS 

FBANK 

00*1 

4207 

1 2465 

0 

TCF 

endjobi 

0062 

4210 

3 0626 

0 

ENDFIND  CA 

exectemi 

return  to  caller  After  job  entry 

OO63 

42U 

54  004 

1 

TS 

FBANK 

complete. 

0064 

4212 

50  002 

0 

index 

Q 

0065 

4213 

0 0002 

0 

TC 

2 

0066 

4214 

02220 

0 

execbank  cadr 

FINDVAC2 

275690 

P0068 

0069 

0070 

0071 

0072 

0073 

0079 

0075 

0076 

0077 

0078 

0075 

0080 

0081 

0082 

0083 

0089 

0085 

0086 

0087 

0°88 

0089 

0090 

0091 

0092 

0093 

0099 

0095 

A0096 
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locate  AN  available  vac  AREA. 


01(2220 

SEtLOC 

endintsi 

01 

(2220 

59  626 

1 

ElNpVAC^ 

TS 

ExEcTEMI 

01 

(2221 

10  269 

0 

CCS 

VAClUSE 

01 

(2222 

1 2239 

1 

tcf 

VACFOUND 

01 

(2223 

10  39O 

1 

CCS 

VAC2USE 

01 

(2229 

1 2239 

1 

tcf 

VACFOgND 

01 

(2225 

10  919 

1 

CCS 

VAc3USe 

01 

(2226 

1 2239 

1 

TcF 

VacFOUNd 

01 

(2227 

10  970 

0 

CCS 

VAC9USE 

01 

(2230 

1 2239 

1 

TCF 

VACFOUND 

01 

(2231 

10  599 

0 

CCS 

VAC5USE 

01 

(2232 

1 2239 

1 

TCF 

VACFOuND 

01 

(2233 

0 2233 

1 

TC 

01 

(2239 

6 7695 

1 

VACFOUNO 

AD 

TWO 

01 

(2235 

22  007 

0 

ZL 

oi 

(2236 

50  000 

1 

INDEX 

A 

01 

(2237 

21'777 

0 

LXCh 

0 -1 

01 

12290 

26  632 

1 

ADS 

NEWPRIO 

01 

(2291 

3 7653 

0 

N0VAC2 

CAF 

ZERO 

01 

(2292 

59  635 

0 

TS 

LOCCTR 

01 

(2293 

3 2250 

1 

CAF 

NO. CORES 

01 

(2299 

59  62T 

0 

N0VAC3 

TS 

EXECTEM2 

01 

(2295 

5O  635 

1 

INDEX 

LOCCTR 

01 

.2296 

10  153 

I 

CCS 

Priority 

01 

(2297 

1 2310 

0 

TCF 

NeXTcORe 

01 

(2250 

00006 

1 

NO. CORES 

DEC 

6 

01 

(2251 

1 2310 

0 

TCF 

NEXTCORE 

(Save  caller's  bank  first.) 


ABORT  If  no  vac  AReAS  AVAILABLE. 

REgERVE  this  VAC  AREA  BY  gTORlNG  A ZErO 

IN  ITS  VAC  USE  Register  and  store  the 
address  of  the  first  word  of  it  in  the 
LOW  NiNE  Bits  of  the  priority  word. 


novac  enters  here,  find  a core  set, 
SEyEN  sets  OF  ELEvEN  REGISTERS  EACH, 


EACH  priority  rEGISTEr  CONTAINS  -0  IF 

the  corresponding  core  Set  is  available. 

AN  ACTIVE  JOB  HAS  A POSITIVE  PRiORiTY 
BUT  A DORMANT  JOB'S  PRIORITY  IS  NEGATIVE 


275690 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

01071 

01072 

01073 

01074 

01075 

01076 

01077 

0108 

0109 

0110 

0111 

0112 

0113 

OIU 

Oils 

0116 

0117 

Oils 

0119 

0120 

0121 

0122 

0123 
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01.2252 

3 0632 

0 

CORFOUND  ca 

NewPRiO 

01.22S3 

50  635 

1 

INDEX 

locctr 

01.2254 

54  153 

1 

TS 

priority 

01.2255 

7 2503 

1 

MASK 

L0W9 

01,2256 

50  635 

1 

INDEX 

LOCCTR 

01,2257 

54  152 

0 

TS 

pushloc 

01  2260 

10  63S 

0 

CCS 

locctr 

01,2261 

1 2275 

1 

TCF 

SETLOC 

01,2262 

54  105 

1 

TS 

OVFIND 

01,2263 

3 0152 

1 

CA 

PUSHLOC 

01.2264 

54  104 

0 

TS 

FIXLOC 

01,2265 

10  067 

1 

SPECTEST  CCS 

newJob 

01,2266 

1 2275 

1 

TCF 

setloc 

01,2271 

SETLOC 

+ 2 

01,2271 

54  067 

1 

TS 

NEWJqB 

01,2272 

52  634 

1 

DXCH 

NeWLOC 

01,2273 

52  151 

0 

DXCH 

Loc 

01,2274 

1 4210 

1 

TCF 

ENDFlND 

01  2275 

52  63A 

1 

SEtLOC  DxCH 

NEwLOC 

01,2276 

50  636 

1 

INDEX 

LOCCTR 

01,2277 

01,2300 

52  l5l 

0 

DXCH 

LOC 

50  067 

0 

INDEX 

NEwJOB 

01,2301 

4 0153 

1 

cs 

PRIORITY 

01,2302 

6 0632 

0 

AD 

NEWPRIO 

01,2303 

0 0006 

1 

extend 

01,2304 

6 4210 

0 

BZMF 

ENDFiND 

01,2305 

3 0635 

1 

CA 

LOCCTR 

01,2306 

54  067 

1 

TS 

NEWJOB 

01,2307 

1 4210 

1 

TCF 

ENOFiND 

01,2310 

3 2416 

0 

NEXtCorE  caf 

COREINC 

01,2311 

26  635 

0 

AdS 

LOCCTR 

01,2312 

10  6Z7 

0 

CCS 

EXECTEM2 

01,2313 

1 2244 

0 

TCF 

N0vAC3 

01,2314 

0 2314 

0 

TC 

USER'S  Own  page  no.  4 
SET  The  priority  of  this  job  iN  The  core 

SET'S  PRIORITY  REGISTER  AND  SET  THE 
JOB'S  pUSH-DoWN  pointer  at  THE  BEGINNING 
OF  THE  WORK  AREA  AND  OVERFLOW  INDICATOR 

OFF  TO  PREPARE  FOR  INTERPRETIVE  PROqRaMS 

IF  CORE  SET  zero  IS  BEING  LOADED,  SET  UP 
OVFINO  AND  FixLOC  IMMEDIATELY  • 


SEE  IF  any  active  JOBS  WAITING  (RArE). 
MUST  BE  AWAKENED  BUT  UNCHANGED  JOB, 

+0  SHOWS  ACTIVE  JoB  ALrEAOY  SET. 


set  up  the  location  registers  for  this 


this  index  instruction  insures  that  the 
highest  active  priority  Will  be  compared 
with  the  new  priority  to  see  if  newjob 
should  be  sEt  tO  signal  a switch. 

LOCCTR  is  left  SET  AT  THIS  CORE  SET  IF 
the  caller  wants  to  load  any  mpac 
Registers,  etc. 


abort  if  no  more  core  sets 


275690 

p0124 

0126 

0127 

0128 

0129 

0130 

0l3l 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

01^0 

OUl 

0U2 

0143 

0144 

0145 

0146 

0148 

0U9 

0150 

0151 

01s2 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0l6l 

0162 

0163 

0164 

01645 

0165 

0166 

0167 

0168 


YUL  system  for  BLK2«  revision  0 OF  PROGRAM  RETRED44  By  NAsA  2021100 


JUL  9,  1965  (MAIN)  PAGE  m 


executive 


uSeR'S  own  Page  no.  5 

the  Following  routine  swarS  core  set  0 with  that  whqSe  relative  adDress  is  in  newjqs. 


01.2315 

52 

I5I 

0 

-1 

DXCH 

LOC 

01,2316 

50 

067 

0 

chanjob 

INDEX 

NEwUOB 

LOC  arrives  in  a And  bbank  in  l. 

01,2317 

52 

15l 

0 

DXCh 

LOC 

01,2320 

52 

I5I 

0 

oxch 

LOC 

01,2321 

52 

I4l 

1 

DXCh 

MPAC 

SWAP  MULT  I. PURPOSE  ACCUMULATOR  AREAS 

01,2322 

50 

067 

0 

INDEX 

newjob 

01,2323 

52 

141 

1 

OXCH 

MpAC 

01,2324 

52 

I4l 

1 

DXCh 

MPAC 

01,2325 

52 

143 

0 

DXCH 

MPAC  +2 

01,2326 

50 

067 

0 

INDEX 

NEWJOB 

01,2327 

52 

143 

0 

DXCh 

MPAC  +2 

01,2330 

52 

143 

0 

DXCH 

MpAC  +2 

01,2331 

52 

145 

0 

OXCH 

MpAC  +4 

01,2332 

50 

067 

0 

INDEX 

NEWJOB 

01,2333 

52 

I45 

0 

DXCH 

MpAC  +4 

01,2334 

52 

145 

0 

DXCH 

MpAC  +4 

01,2335 

52 

147 

1 

DXCh 

MPAC  *6 

01,2336 

50 

067 

0 

INDEX 

NEWJOB 

01,2337 

52 

147 

1 

DXCH 

MPAC  +6 

01,2340 

52 

147 

1 

DXCh 

MPAC  +6 

01,2341 

3 

7653 

0 

caf 

ZERO 

01;2342 

56 

105 

0 

XCH 

DVFIND 

MA«E  PUSHLOC  NEGATIVE  iF  OVFiND  NZ, 

01,2343 

0 

0006 

1 

EXTEND 

01,2344 

1 

2347 

1 

bzf 

♦ 3 

01,2345 

4 

0152 

0 

C5 

PUShLOC 

01,2346 

54 

152 

0 

TS 

PUSHLOC 

01,2347 

52 

153 

1 

OXCH 

PUSHloC 

01,2350 

50 

067 

0 

INoeX 

NeWJOB 

01,2351 

52 

153 

1 

DXCH 

PUSHLOC 

01,2352 

52 

153 

1 

DXCH 

PUShLOC 

SWAPS  PUSHLOC  and  PRIORITY, 

01,2353 

10 

152 

0 

CCS 

PUSHLOC 

SET  OVERFLOW  INDICATOR  ACCORDING  TO 

01,2354 

3 

7653 

0 

CAF 

Zero 

01,2355 

1 

2362 

0 

TCF 

ENDPRCHG  -1 

01,2355 

4 

0152 

0 

C5 

PUSHLOC 

01,2357 

54 

152 

0 

TS 

pUSHLoC 

01,2360 

3 

7646 

1 

CAF 

ONE 

01,2361 

56 

105 

0 

XCH 

OyF IND 

01,2362 

54 

067 

1 

TS 

NeWJOB 

01,2363 

0 

0003 

1 

ENDpRCHG 

RELINt 

01,2364 

52 

151 

0 

DXCh 

LOC 

BASiC  jobs  have  positive  ADDRESSES, 

01,2365 

0 

0006 

1 

EXTEND 

DISPATCH  WITH  A DTCB. 

01,2366 

6 

2370 

1 

BZmF 

*2 

IF  InTERrRETIVE,  SET  Up  EBAnK,  ETC. 

01,2367 

52 

006 

0 

DTCB 

275690 

0169 

0170 

0171 

0172 

0173 

R0179 

0175 

0176 

0177 

0178 

0179 

0180 

01803 

01806 

0181 
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EXECUTIVE 


USER'S  Own  page  no.  6 


01,2370 

4 0000 

0 

COM 

01,2371 

54  I5O 

1 

ts 

LOC 

01,2372 

3 6232 

1 

CAF 

fbankmsk 

01,2373 

7 0001 

1 

MASK 

L 

01,2374 

1 60U 

0 

TCF 

INTRSM 

complete  JOBSLEEP  PREPARATIONS, 

01,2375 

0 0004 

0 

JOBSLPl 

INHINT 

01,2376 

4 0153 

1 

C5 

PRIORITY 

01,2377 

54  l53 

1 

TS 

PRIORITY 

01,2400 

3 6027 

1 

CAF 

LQW7 

01,2401 

7 0006 

0 

MASK 

BBANK 

01,2402 

54  I5I 

0 

TS 

BANKSET 

01,2403 

4 7653 

1 

CS 

ZERO 

01,2404 

54  US 

0 

J0bSLP2 

TS 

bup  *1 

01,2405 

1 2475 

1 

TCF 

EJSCAN 

epilogue  to  job  Change  for  interpretive 
resume. 


NNZ  PRIORITY  SHOWS  JOB  ASLEEP, 


HOLqS  - HIGHEST  PRIORITY, 

SCAN  FOR  HIGHEST  PRIORITY  ALA  ENDOFJOB, 


275690  YuL  SYSTEM  FOR  BLK2!  REylSlON  0 OF  PROGRAM  REjREDAA  BY  nAsA  2021100 


JUL  9*  1965 


<MAIN)  page  Il3 


EXECUTIVE 


USER'S  OWN  PAGE  NO,  7 


P0182  TO  WAKE  UP  A JOB,  EACH  CORE  SeT  jS  FOUND  TO  LOCATE  ALU  JOBS  WhiCh  ARE  ASLeEP.  IF  THE  FCADR  jN  THE 

ROI84  LOC  register  OF  any  SUCH  JOB  MATCHES  THAT  SUPPLIED  By  THE  CALLEr,  THAT  JOB  IS  AWAKENED,  IF  NO  JOB  IS  FOUND, 

r0186  LOCCTr  is  set  TO  -1  ANi!  NO  FUrTHEr  ACTION  TAKES  PLACE, 


0107 

01,2406 

54  6^6 

1 

JO0WAKE2 

TS 

EXECTEMl 

0188 

01,2407 

3 7693 

0 

CAF 

ZERO 

0189 

01,2410 

54  635 

0 

TS 

LOCCTR 

0190 

01, 24I I 

3 225O 

1 

CAF 

NOtCORES 

OI9I 

01,2412 

54  627 

0 

JO0WAKE9 

TS 

EXECTEM2 

0192 

01,2413 

50  635 

1 

index 

LOCCTR 

0193 

01,2414 

10  153 

1 

CCS 

PRIORITY 

019A 

01,2415 

1 2420 

1 

TCF 

jOBWA^ES 

OI95 

01, 24^ 

00014 

1 

CORE  INC 

DEC 

12 

0196 

01,2417 

1 2427 

0 

TCF 

wAKEtEST 

0197 

01,2420 

3 2416 

0 

JO0WAKE3 

caf 

COREINc 

0198 

01,2421 

26  635 

0 

ADS 

LOCCTR 

0199 

01,2422 

10  627 

0 

CCS 

EXECTEM2 

0200 

01,2423 

1 2412 

0 

TCF 

J0BWAKE9 

0201 

01,2424 

4 7646 

0 

Cs 

ONE 

0202 

01,2425 

54  635 

0 

TS 

LOCCTR 

0203 

01,2426 

1 4210 

1 

TCF 

endfind 

0204 

01,2427 

4 0633 

0 

WAKETEST 

CS 

NEWLOC 

0205 

01,2430 

50  635 

1 

INdeX 

LOCcTR 

0206 

01,2431 

6 0150 

0 

AD 

LOC 

0207 

01,2432 

0 0006 

1 

EXTEND 

020g 

01,2433 

1 2435 

0 

BZF 

*2 

0209 

01,2484 

1 2420 

1 

tcf 

JQBWAKE3 

0210 

01,2435 

50  635 

1 

INDEX 

LOCCTR 

0211 

01,2436 

4 0153 

1 

Cs 

priority 

0212 

01,2437 

50  635 

1 

INDEX 

LOCCTR 

0213 

01,2490 

59  I53 

1 

TS 

PRIORITY 

0214 

01,2491 

4 6232 

0 

Cs 

FBANKM5K 

0219 

01,2992 

7 0633 

0 

MASK 

NeWLOC 

0216 

01,2493 

6 7634 

1 

AD 

2K 

0217 

01,2494 

56  633 

1 

XCH 

NEWLOC 

0218 

01,2445 

7 6232 

0 

MASK 

fbankmsk 

0219 

01,2496 

50  635 

1 

INDEX 

LoCCTr 

0220 

01,2997 

6 0151 

1 

Ad 

BANKSeT 

0221 

01,2450 

54  639 

1 

TS 

NEWLOC  ♦! 

0222 

01,2451 

10  635 

0 

CCS 

LqCCTR 

02222 

01,2492 

1 2275 

1 

TCF 

5ETL0C 

02224 

01,2453 

1 2265 

0 

tCF 

SPECjEst 

BEGIN  CORE  sEt  SCAN, 


ACTIVE  JOB  - check  NEXT  CORE  SET, 

12  REGISTERS  PER  CORE  SET, 

SLEEPING  JOB  - SEE  IF  CADR  MATCHES, 


EXI|  IF  SLEEPING  JOB  NOj  FOjND, 


IF  match, 

examine  next  core  sEt  if  no  MAtCH, 
RE-COMPLEMENT  priority  to  SHOW  JOB  awake 


make  up  the  2cADr  OF  THE  WAKE  ADDrEss 
USING  THe  CAdR  in  NeWLOC  ANd  THe  ebank 
HALF  OF  BBANK  sAyED  IN  BAnKsEt* 


special  treatmEmT  if  this  jqB  was 
already  in  the  run  (0)  POSITION, 


275690  yUL  SYSTEM  FOR  BlKz*  REVISION  0 OF  PROGRAM  rE|rED4A  By  ^AsA  202U00  >JUL  l965  (MAIn) 


EXECUTIVE  USER'S  OWN  PAGE  NO.  8 

P0223  Priority  change,  change  the  Contents  of  priority  and  scan  for  the  job  of  highest  priority. 


0225 

01,2654 

54  ISO  1 

PRI0CH2  TS 

LCC 

02253 

01,2455 

3 7653  0 

CAF 

ZERO 

SET  flag  to  tell  ENDJOB  SCANNER 

02256 

01,2456 

54  114  1 

TS 

BUF 

JOB  IS  STiU  highest  PRIORITY, 

0226 

01,2457 

3 2503  0 

CAF 

LCW9 

0227 

01,2460 

7 0153  1 

MASK 

priority 

0228 

01,2461 

6 0632  0 

AD 

newprio 

0229 

01,2462 

54  153  1 

TS 

priority 

0230 

01,2463 

4 0000  0 

COM 

0231 

01,2464 

1 2404  1 

TCF 

J0BSLP2 

AND  TO  E JSC AN, 

PAGE  11^ 


IF  this 


275690  YUL  SYSTEM  FOR  BLK2:  REVISION  0 OF  PROGRAM  REtRED^/^  By  NAsA  2021100 


JUL  9,  i9j,5 


(MAIN)  PAGE  ii5 


executive 


uSeR'S  own  page  no,  9 


poz39  release  This  cqrE  set  and  vac  Area  and  scan  for  the  job  of  highest  active  Priority. 


0241 

01  ,2465 

0 0004  0 

ENDJOBl 

INHINT 

0242 

01, 2496 

4 7653  1 

CS 

zero 

02425 

01,2467 

54  115  0 

TS 

BUF  ♦! 

0243 

01,2470 

56  153  0 

XcH 

PRIORITY 

0244 

01  2471 

7 2503  1 

MASK 

L0W9 

0245 

01,2472 

10  000  0 

CCS 

A 

0246 

01,24T3 

50  000  1 

index 

A 

0247 

01,2474 

54  000  0 

TS 

0 

0248 

01,2475 

10  167  0 

eJscan 

CCS 

PRIORITY 

♦ 12[) 

02485 

01,2476 

0 2542  0 

TC 

Ejl 

0249 

01,2500 

SETLOC 

♦ 1 

02495 

01,2500 

1 25OI  0 

TCF 

♦1 

0250 

01,2501 

10  203  1 

CCS 

PRIORITY 

+ 24D 

EXAMINE  EACH  PRiORiTY  REGISTER  TO  FiNd 

0251 

01,2502 

0 2542  0 

TC 

EJl 

THE  JOB  OF  HIGHEST  ACTIVE  PRIORITY. 

0252 

01,2503 

00777  0 

L0W9 

OCy 

00777 

0253 

01,250A 

1 2505  1 

tcf 

4l 

0254 

01,2505 

10  217  1 

CCS 

PRIORITY 

♦ 36D 

0255 

01,2506 

0 2542  0 

TC 

Ejl 

0256 

01,2507 

67  624  0 

-CCSPR 

-CCS 

PRIORITY 

0257 

01,2S10 

1 2511  1 

TCF 

♦1 

0258 

01,2511 

10  233  1 

CCS 

PRIORITY 

♦ 48d 

025g 

01,2512 

0 2542  0 

TC 

Ejl 

0260 

01,2514 

SEjtOC 

♦ 1 

0261 

01,2514 

1 2515  0 

TCF 

♦ 1 

02fe2 

01,2515 

10  247  1 

CCS 

PRIORITY 

♦6°D 

0263 

0264 

01,2516 

0 2542  0 
01,2520 

Ietloc 

Ejl 

*1 

0265 

01,2520 

1 2521  1 

TCF 

*1 

0266 

01,2521 

10  263  1 

CCS 

priority 

♦ 72d 

0267 

01,2522 

0 2542  0 

TC 

EJl 

0268 

01,2524 

SEtLOC 

*1 

0269 

01,2524 

1 2525  0 

TCF 

♦ 1 

275690  YUl  system  FOR  BLK2I  REVISION  0 OF  PrOGrAM  rETrEDAA  BY  NASA  2021100 


JUl  9*  1965  (main)  page  ll6 


EXECUTIVE  USER'S  OwN  PAGE  NO.  10 


P0270 

evaluate  the  results 

OF  the 

SCAN. 

0271 

01,2525 

10  115 

0 

CCS 

BUF  +1 

SEE  IF  there  ARE  ANY  ACTIVE  JqBS  WAITING 

0272 

01,2530 

setloc 

♦ 2 

02725 

01,2^30 

1 2532 

0 

TCF 

*2 

0273 

01,2531 

1 6215 

1 

TCF 

DUMMY JOB 

0276 

01,2552 

10  116 

1 

CCS 

BUF 

BUF  IS  ZERO  IF  THIS  IS  A PRIOCHNQ  AND 

0275 

01,2533 

1 2535 

1 

TCF 

♦ 2 

CHANGED  PRIORITY  IS  STILL  HIGHEST. 

0276 

01,2536 

1 2363 

1 

TCF 

ENDPRCHG 

0277 

01,2535 

50  000 

1 

INDEX 

A 

OTHERWISE,  SET  NEWJoB  TO  THE  RELATIVE 

0278 

01,2536 

2'7777 

0 

CAF 

0 -1 

address  of  the  new  jOBtS  CORE  SET, 

0279 

01,2537 

6 2507 

1 

AD 

-CCSPR 

02g0 

01,2560 

56  067 

1 

TS 

NEWJOB 

0281 

01,2561 

1 2316 

0 

TCF 

ChANJOB  -1 

0282 

01,2562 

56  116 

0 

FJl 

TS 

BuF  *2 

0283 

01,2563 

6 0115 

1 

AD 

BUF  +1 

- OLD  HIGH  Priority. 

0284 

01,2596 

10  000 

0 

CCS 

A 

0285 

01,2565 

6 0116 

0 

cs 

BUF  *2 

0286 

01,2566 

1 2552 

0 

TcF 

eJZ 

NeW  HIGH  priority. 

0287 

01,2567 

1 2550 

1 

NOOP 

0288 

01,2550 

50  002 

0 

INDEX 

Q 

0289 

01,2551 

0 0002 

0 

TC 

2 

PROCEED  WITH  SEARCH. 

0290 

01,2552 

56  115 

0 

FJZ 

TS 

BUF  *1 

0291 

01,2553 

0 0006 

1 

extend 

02q2 

01,2556 

22  116 

0 

OXCH 

BUF 

FOR  locating  CCS  PRIORITY  + X INSTR. 

0293 

01,2555 

50  116 

0 

INDEX 

BUF 

0296 

01,2556 

0 0002 

0 

TC 

2 

02965 

01,2557 

endexecs 

EQUALS 

275690  YUl  SYSTEM  FOR  BlK2!  REVISION  ° OF  PROGRAM  RETrE044  BY  NASA  2021100 


jUl  9f  1965  (MAIN)  pACE  H7 


Executive 


USER'S  OvjN  page  NO.  11 


P0295  IdLINk  aNd  COMPUTER  ACTIVITY  (qReeN)  UQHf  MAINTENANCE.  ThE  IdLIN^  ROUTINE  IS  NOT  A JOB  IN  ITSElp, 

R0297  BUT  rather  A SUBROUTINE  OF' THE  EXECUTIVE. 


02975  4215  SeTLOC  EXeCBANK  *l 


0298 

9215 

4 7653 

1 

DUMMyJOB  cs 

ZERO 

SET  NEwJOB  TO  -0  FOR  IDLING. 

0299 

4216 

54  067 

1 

TS 

NEWjOB 

0300 

421? 

0 0003 

1 

RELINT 

0301 

9220 

4 7695 

0 

CS 

TwO 

turn  off  the  activity  light. 

0302 

4221 

0 0006 

1 

EXTEND 

O3O3 

9222 

03  Oil 

1 

WAND 

DSALMOUT 

03031 

9223 

1 4226 

1 

tcf 

CHECKNJ  *Z 

03032 

4224 

0 0006 

1 

CHeC<NJ 

EXTeNd 

special  NgWJOB  TeST  f^R  SeLf'CHeCK* 

03033 

4225 

23*043 

1 

QXCH 

5ELFRET 

which  runs  under  executive  control, 

030A 

4226 

10  067 

1 

+ 2 

CCS 

NEWjOB 

but  does  not  have  a jobs  core  registers. 

0305 

9227 

1 9291 

0 

TCF 

NUCHANGE 

NEW  job  requiring  A CHANGE  JOB, 

0306 

4230 

3 7695 

1 

CAF 

TWO 

NEW  JOB  ALREADY  IN  POSITION  FOR 

0307 

4231 

1 4235 

0 

TCP 

NUDjRECT 

EXECUTION. 

0308 

9232 

3 4250 

1 

CAF 

SELFBANK 

return  T°  sELF-CHECK, 

03081 

9233 

54  004 

1 

TS 

FBANk 

030g2 

9239 

0 1093 

1 

TC 

SELFRET 

0309 

4235 

0 0006 

1 

NUDirECT 

extend 

turn  the  GrEEN  LIGHT  BACK  ON. 

0310 

4236 

05  Oil 

1 

WOR 

dsalmout 

0311 

9237 

52  I5I 

0 

OXCH 

LOC 

JOBS  started  in  this  fashion  must  be 

0312 

9240 

52  006 

0 

DtCB 

BASIC. 

0313 

4241 

3 7645 

1 

NUcHANgE 

CAP 

TWO 

03U 

9242 

0 0006 

1 

EXTEND 

0315 

4293 

05  Oil 

1 

WOR 

DSALMOUT 

O3I53 

9299 

3 9214 

1 

CAF 

EXECBANK 

SWAP  CORE  sets. 

03156 

9245 

54  004 

1 

TS 

FBANK 

0316 

9246 

0 0004 

0 

INHiNT 

CHANGE  JOBS 

O3I7 

9247 

1 2315 

0 

TCF 

CHANJOB  -1 

03175 

4250 

21271 

0 

SElFBAnK 

CADR 

EnDEDqp 

0318 

9251 

ENDEXECF 

EQUALS 
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WAITLIST 

USER'S  OWN  PAGE  NO.  1 

ROOOl 

gRoUnORule,.,. delta  t Should  noT  exceed 

12000  (*  2 MINUTES) 

0002 

9251 

SETLOC 

endexecf 

0003 

F3 

EBANKs 

LSTl 

TASK  LISTS  IN  SWITCHED  E BANK, 

OOOA 

A291 

56  002  0 

waitlist  xch 

Q 

SAVE  delta  T in  Q AND  RETURN  IN 

0005 

A252 

59  629  0 

TS 

WAITEXIT 

WAITEXIT. 

0006 

9253 

0 0006  1 

EXTEND 

0007 

9259 

5 0000  1 

INDEX 

A 

0008 

9255 

3 0001  0 

dca 

0 

PICK  UP  ZCAOR  OF  task. 

0009 

9256 

59  630  0 

TS 

WAITAOR 

BBCON  will  REMAIN  IN  L. 

0010 

9297 

3 9266  1 

CAF 

WAITBB 

0011 

9260 

56  006  1 

XCH 

BBANK 

0012 

9261 

1 2557  0 

TCF 

WAIT2 

R0013 

RETURN 

TO  CALLER  after  TASK  INSERTION! 

OOIA 

9262 

3 0625  0 

lvwtlist  ca 

waitbank 

0015 

9263 

59  006  0 

TS 

BBANK 

0016 

9269 

50  62A  1 

INDEX 

WAITEXIT 

0017 

9265 

0 0002  0 

TC 

2 

OOlfl 

9266 

02003  0 

WAITBB  BBCON 

WAIT2 

R0019 

EnDTASK  must  be 

Entered  in  fixed-fixed 

So  IT  IS  distinguishable  by 

ITS  ADrES  ALonE. 

0021 

9267 

73506  0 

ENDTASK  -2CADR 

SVCT3 

C0021 

9270 

73779  1 

0022 

9271 

1 9321  1 

SVCT3  TCF 

TASkOVER 

275690 
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WAITLIST  USER'S  OwN  PAGE  NO.  2 


P0023 

begin  task  insertion 

• 

0029 

01,2557 

SEtLOC 

ENDEXECs 

0025 

01,2557 

54  625 

1 

WAIT2  TS 

waitbank 

BBANK  OF  CALLING  PROGRAM. 

0026 

01,2560 

4 0026 

1 

cs 

times 

0027 

01,2561 

6 2562 

1 

AD 

♦ 1 

CCS  A = ♦ 1/4 

0028 

01,2562 

10  000 

0 

CCS 

A 

TEST  l/A  - c<TIME3).  if  POSITIVE, 

A0029 

IT  MEANS  that  TIME3  OuERFLOw 

HAS  OCCURRED  PRIOR  TO  CS  TIMES  AND  THAT 

A0030 

C(TIME3)  » T - 

Tl,  INSTEAD  OF 

1.0  - (Tl  - T).  THE  FOLLOWING  FOUR 

A0031 

ORDERS  SET  C(A) 

= TD  - Tl  ♦ 1 

IN  either  case. 

0032 

01,2563 

6 6042 

1 

AD 

0CT40001 

overflow  has  occurred.  Set  c(Aj  s 

0033 

01,2564 

4 0000 

0 

CS 

A 

T - Tl  ♦ 3/4  - 1 

R0039 

normal  case  (C(A)  mInUS)  yields  SAmE 

C(A)  .(.(1.0-(T1- 

T))+1X4)-1 

0035 

01,2555 

6 2657 

1 

AD 

0CT50001 

0036 

01,2566 

6 0002 

0 

AD 

0 

result  a TD  - Tl  ♦ 1. 

0037 

01,2557 

10  000 

0 

CCS 

A 

TEST  TD  - Tl  ♦ 1 

0038 

01,2570 

6 1400 

1 

AD 

LSTl 

IF  TD  - Tl  POS,  60  TO  WTLST5  WITH 

0039 

01,2571 

1 2*25 

0 

TCF 

WTLST5 

CIA)  s (TD  - Tl)  + C(LSTi)  = TD-T2*i 

OO9O 

01,2572 

1 2573 

0 

NOOP 

00<,1 

01,2573 

4 0002 

1 

CS 

0 

r0092 

note  that  this  PrOGrAM  section  is  nEVEr  entered  when  T- 

Tl  G/E  -1, 

R0093 

since  Tn-Tl  + l * (Tn-T)  ♦ (T-Tl  + U,  ANn 

delta  T * Td-T  6/E  ♦!  . (G/E 

R0044 

Symbol  means  greater  than  or 

EQUAL  TO). 

THUS  THERE  NEED  BE  NO  CON- 

R0045 

CErN  over  a previous  or  imminent  overflow  of  TIME3  HERE 

• 

0046 

01,2574 

6 7631 

1 

AD 

POSl/2 

WHEN  TD  IS  NEXT,  FORM  QUANTITY 

0047 

01,2575 

6 7631 

1 

AD 

POSl/2 

1.0  - DELTA  T a 1,0  . (TD  . T) 

004a 

01,2576 

56  026 

0 

XCH 

TIMES 

0049 

01,2577 

6 7630 

0 

AD 

negmax 

0050 

01,2600 

6 0002 

0 

AD 

Q 

1.0  - deltat  t now  complete. 

00^1 

q1 ,26gl 

0 000* 

1 

EXTEND 

ZERO  INDEX  Q. 

0062 

01,2602 

22  007 

0 

QXCH 

7 

(ZO) 

275690 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

A0068 

0069 

OO7O 

0071 
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WAITLIST 


USER'S  OWN  PAGE  NO.  3 


01.2603 

57'400 

1 WTLST4 

XCH 

LSTl 

01.2604 

57*401 

0 

XCH 

LSTl  ♦! 

01.2605 

57*402 

0 

XcH 

LSTl  +2 

01,2606 

57*403 

1 

XCH 

LSTl  .3 

01.2607 

57*404 

0 

XCH 

LSTl  +4 

01,2610 

3 0630 

1 

CA 

waitadr 

01.2611 

50  002 

0 

INDEX 

Q 

01.2612 

1 2613 

0 

TCP 

♦ 1 

01.2613 

53*406 

0 

OXCH 

LST2 

01.2614 

53*410 

1 

OXCH 

LST2  +2 

01,2615 

53*412 

0 

DXCH 

LST2  .4 

01.2616 

53*414 

0 

DXCH 

LST2  +6 

01.2617 

53*416 

1 

DXCH 

LST2  +80 

01.2620 

53*420 

1 

OXCH 

LST2  ♦lOD 

01.2621 

6 4267 

0 

Ad 

ENdTASK 

01.2622 

0 0006 

1 

EXTEND 

01.2623 

1 4262 

1 

BZF 

LVWTLIST 

01.2624 

1 2663 

1 

TCP 

WtABORt 

(MINOR  part  op  task  CAOR  HA$  BEEN  IN  L.) 


at  End.  check  that  c(lst2+io)  is  std 

end  ITeM.  as  check  POR  EXCEEDIN(j 

the  length  op  the  list. 

DUMMY  task  ADRES  SHOULD  BE  IN  PIXED. 
PIXED  SO  ITS  ADRES  ALONE  DISTINGUISHES 

It. 


2756^0 

00?2 

0073 

OO74 

0075 

0076 

OO77 

0078 

0079 

0080 

0081 

0082 

OO83 

0084 

00§5 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

OO94 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 
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USER'S  oWn  pAGE 

NO* 

01,2625 

10  000 

0 

WTLST5 

CCS 

A 

TEST 

TD  - Tz  ♦ 

1 

01,2626 

6 1401 

0 

AD 

LSTI  *1 

01,2627 

1 2633 

1 

TcF 

*4 

01,2630 

6 7646 

1 

AD 

ONE 

01,2631 

0 2664 

1 

TC 

WTLST2 

01,2632 

00001 

0 

OCT 

1 

01,2633 

10  000 

0 

+4 

CCS 

A 

TEST 

TD  - T3  ♦ 

1 

01,2634 

6 1402 

0 

Ad 

LSTI  +2 

01,2635 

1 2641 

1 

TCF 

*4 

01,2636 

6 7646 

1 

AD 

one 

01,2637 

0 2664 

1 

TC 

WTLST2 

01,2640 

00002 

0 

OCT 

2 

01,2641 

10  000 

0 

♦ 4 

CCS 

A 

test 

TD  - T4  ♦ 

1 

01,2642 

6 1403 

1 

AD 

LSTI  +3 

01,2643 

1 2647 

1 

TCF 

♦ 4 

01,2644 

6 7646 

1 

AD 

one 

01,2645 

0 2664 

1 

TC 

WTLST2 

01,2646 

00003 

1 

OCT 

3 

01,2647 

10  000 

0 

+4 

CCS 

A 

TEST 

TD  - T5  ♦ 

1 

01,2650 

6 1404 

0 

Ad 

LSTI  *4 

01,2651 

1 2655 

1 

TCF 

+4 

01,2652 

6 7646 

1 

AD 

ONE 

0^2653 

0 2664 

1 

TC 

WTLST2 

01,2654 

00004 

0 

OCT 

4 

01,2655 

10  000 

0 

♦ 4 

CCS 

A 

TEST 

TD  - T6  ♦ 

1 

01,2656 

1 2663 

1 

TcF 

WTABORT 

01,265? 

50001 

0 

0CT50001 

OCT 

50001 

01,2660 

6 7646 

1 

AD 

ONE 

01,2661 

0 2664 

1 

TC 

WTLST2 

01,2662 

00005 

1 

OCT 

5 

01,2663 

0 2663 

0 

WTabORT 

Tc 

LIST 

OVERFLOW. 
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P0103 

R0104 

R0105 

R01C6 

R0107 

R0108 


WAITLIST 

the  entry  to  WTLsTz  JUST  preceding  OCt  N IS  FOR  T UE  tD  LE  T -1# 

N N«1 

(Le  Means  less  than  or  equal  ton  at  entry.  c(a>  » -(td  - t t n 

N+l 

the  LSTl  entry  -(T  - T ♦!)  IS  TO  Be  REPLACED  BY  -(TO  - T ♦ D*  AND 

N+1  N N 


USER'S  OWN  PAC5E  NO.  5 


R0109  the  entry  -(T  - TD  ♦ 1>  IS  TO  BE  INSERTED  IMMEDIATELY  PQLLOWINg. 

ROllO  N+1 


0111 

01.2664 

54  631 

1 

WTLST2 

TS 

WAITTEMP 

C(A)  a -(TD  - T ♦ 1) 

0112 

01,2665 

50  002 

0 

INDEX 

0 

0113 

01.2666 

3 0000 

1 

CAP 

0 

OIU 

01,2667 

54  002 

1 

TS 

Q 

INDEX  VALUE  INTO  Q, 

0115 

01,2670 

3 7646 

1 

CAP 

ONE 

0116 

01,2671 

6 0631 

0 

AD 

WAITTEMP 

OII7 

01,2672 

50  002 

0 

INDEX 

0 

C(A)  a “(TD  - T ) + 1, 

Oils 

01,2673 

27*377 

1 

AOS 

LSTl  -1 

N 

Ollg 

01,2674 

4 0431 

1 

cs 

WAITTEMP 

0120 

01,2675 

50  002 

0 

INDEX 

Q 

0121 

01,2676 

1 2603 

1 

TCP 

WTLST4 

0122 

01,2677 

ENDwAlTS 

equals 

last  SWITCHABLE  location. 

R0123  C(TIMe3>  a 1.0  - (T1  - T> 


R0124  C(LsT1  ) e - (T2  - T1)  + I 
R0125  c<LSTl+l)  a - (T3  - T2)  ♦ 1 
Rqi26  C(LSTi+2)  b - (T4  - T3>  ♦ i 
ROUT  C(|STU3)  = - (T5  - T4)  * I 
R0128  C(tSTU4)  s - (T6  - TSV  + 1 


R0129  C<lST2  ) a 2CADR  TASrI 
ROlsO  C(l3T2+2  ) s 2CADR  TASK2 
R0131  C(LSt2*A  ) a 2CADR  t^SK3 
R0132  C(LST2*6  ) a 2cAD«  TASKA 
ROI33  C(LST2+8  ) a 2CADR  TASKj 
r0134  C(lST2*10)  a 2cADr  TAS|<6 
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WAITLIST 


p0135 

Enters  here  on  T3  RUpT  tq  diSpAtch  waitlisted  task. 

0136 

4272 

SETLOC 

SVCT3  *1 

0137 

4272 

54  016 

1 

T3RUPT 

TS 

BANKRUPT 

0138 

4273 

0 0006 

I 

EXTEND 

0139 

4274 

22  012 

1 

qxch 

qrupt 

OUO 

9275 

3 7627 

0 

T3RUPT2 

CAF 

NEGl/2 

0141 

4276 

57*404 

0 

XCH 

LstI 

0142 

4277 

57*403 

1 

XCh 

LSTl  +3 

0143 

4300 

57*402 

0 

XCH 

LSTI  +2 

0144 

4301 

57*401 

0 

XCH 

LSTl  ♦! 

0145 

4302 

57*400 

1 

XcH 

LSTI 

0146 

4303 

6 7626 

1 

AD 

POSMAx 

0147 

4304 

26  026 

I 

ADS 

TIME3 

OUfl 

43O5 

54  636 

0 

TS 

RUPTAGN 

0149 

4306 

4 7653 

1 

Cs 

ZERO 

0150 

4307 

54  636 

0 

TS 

RUPTAGN 

0151 

4310 

0 0006 

1 

EXTEND 

0152 

4311 

4 4270 

1 

DCS 

ENDTASk 

OI53 

4312 

53*420 

1 

DXCH 

LST2  +10D 

0154 

4313 

53*416 

1 

DXCH 

LST2  +8D 

0155 

4314 

53*414 

0 

OXCH 

LST2  +6 

0156 

43i5 

53*412 

0 

DXCH 

LST2  *4 

0157 

4316 

53*410 

1 

DXCH 

LST2  +2 

0158 

43I7 

53*406 

0 

DXCH 

LST2 

0159 

4320 

52  006 

0 

DTCB 

R0160 

REjgRN*  AFtER  execution  OF  TIMES  OVERFLOW  tAsK. 

0l6l 

4321 

10  636 

0 

TASKOvER 

CCS 

RUPTAGN 

0162 

4322 

3 4266 

1 

CAF 

WAItBB 

0163 

4323 

54  006 

0 

TS 

bbank 

0164 

4324 

1 4275 

1 

TCF 

T3RUPT2 

0165 

4325 

0 0006 

1 

resume 

extend 

0166 

4326 

22  012 

1 

QXCH 

ORUPT 

0167 

4327 

3 0016 

0 

CA 

BANKRUPT 

0168 

4330 

54  006 

0 

TS 

BBANk 

0169 

4331 

52  Oil 

0 

DXCH 

ARUPT 

0170 

4332 

50  017 

1 

RESUME 

0171 

4333 

ENdWAITp  eOUALS 

JUL  9,  i965 

useris  Own  page  no.  6 


DISPATCH  waitlist  TASK, 

1.  MOVE  uP  lstI  Contents*  entering 
A value  Of  1/2  +1  AT  TuE  BOTTOM 
FOR  Tfi-Tg.  corresponding  TO  THE 
interval  81,91  SEC  FOr  EnDTASK, 

2,  set  T3  = 1,0  - t2  -T  using  LIST  1. 
SO  t3  wont  tick  during  update. 


SETS  RUPTAgN  to  ♦!  ON  OVERFLOW, 
dispatch  task. 


IF  ♦!  return  to  T3RUPT,  IF  -0  RESUME, 


dispatch  next  task  if  IT  WAS  DUE, 


LAST  pI^^ED-pIXED  location  Op  T3RUPT, 


275690 

yUl  System  for 

BLK2i  REVISION 

0 OF  PROGRAM  RETrEDA4  bY  nASA  2021100 
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fresh  start  and 

restart 

USER'S  OwN  PAGE  NO,  l 

0001 

% 

01,2677 

setloc 

ENDWAITS 

0002 

y 01,2677 

0 0004 

0 

SLAPI 

INHINT 

FrEsH  start,  comes  here  FROM  PINBALL. 

0003 

01,2700 

3 7653 

0 

CAF 

Zero 

(Zero  failreg  in  fresh  start  only). 

0004 

01,2701 

54  721 

1 

TS 

FAILREG 

0005 

01,2702 

54  715 

0 

TS 

UPLOCK 

FREE  uplink  INTERLOCK 

00051 

01,2703 

3 7630 

0 

CAF 

BITI5 

TURNS  OFF  AUTO,  HOLD,  FREE,  NO  ATT, 

00052 

01,2704 

54  675 

1 

TS 

OSPTAB  +11D 

spare,  GIMBAL  lock,  spare,  TrACKEr, 

A00053 

PROG  ALM  (BITS  1-9  OF  dSPtAB+HD), 

A0005A 

IN  FRESH  START  ONLY, 

00055 

01,2705 

4 7632 

0 

cs 

B|T13 

TURN  OFF  ITESf  ALARM!  OUTBIT  (CHAN13 

00056 

01,2706 

0 0006 

1 

extend 

BITIO).  FRESH  START  ONLY. 

00057 

01,2707 

03  013 

0 

WAND 

CHAN13 

000571 

01,2710 

4 76A3 

0 

CS 

BiTA 

TURN  OFF  temp  (FRESh  START  ONLY) 

000572 

0l,27li 

0 000& 

1 

EXTEND 

000573 

01,2712 

03  Oil 

1 

WAND 

DSAlmOUT 

OOOgg 

01,2?13 

3 2722 

1 

CAF 

STARTEB 

00059 

01,2714 

54  003 

0 

TS 

EBANK 

SEt  for  E3 

0006 

01,2715 

3 7653 

0 

SLAP2 

CAF 

Zero 

OOO7 

01,2716 

55*047 

1 

TS 

SMODE 

0008 

01,2717 

0 2723 

0 

TC 

STArTSUB 

Subroutine  oqes  most  of  the  work. 

OOOg 

01,2720 

1 4215 

1 

TCF 

DUMMY JOB 

0010 

01,2721 

0 2715 

0 

GopRoG 

TC 

SLAp2 

CqMES  here  FRqM  A050  RESTART. 

00101 

E3 

EBANKs 

LSTl 

00102 

01,2722 

01400 

1 

STARTeB 

ecadr 

LSTl 

0011 

01,2723 

56  002 

0 

STARTSUB 

XCH 

Q 

0012 

01,2724 

54  114 

1 

TS 

BuF 

EXEC  temps  are  available  tO  uS* 

0013 

01,2725 

3 7626 

1 

CAF 

pqsmax 

T3  AND  T4  OVERFLOW  AS  SOON  AS  POSSIBLE, 

0014 

01,2726 

54  026 

1 

TS 

times 

(pOsMAX  Is  PsEuOO  INjERRuPt  SIGNAL  IN 

0015 

01,2727 

54  027 

0 

TS 

TjMe4 

CASE  RUPT  SjgNALLeD  BEFORE  TS  TiMe3). 

0016 

01,2730 

3 7627 

0 

CAF 

NEGl/2 

Initialize  waijlist  oelta-ts* 

0017 

01,2731 

55*404 

1 

TS 

LSTl  +4 

0018 

01,2732 

55*403 

0 

TS 

LSTl  ,3 

0019 

01,2733 

55*402 

1 

TS 

LSTl  *2 

0020 

01,2734 

55*401 

1 

TS 

LSTl  .1 

OO2I 

01,2735 

55*400 

0 

TS 

LSTl 

0022 

01,2736 

4 4267 

1 

• 

CS 

ENDTASk 

0023 

01,2737 

55*405 

0 

TS 

LST2 

0024 

01,2740 

55*407 

1 

TS 

LST2  *2 

0025 

01,2741 

55*411 

0 

TS 

LST2  +4 

0026 

01,2742 

55*413 

1 

TS 

LST2  +6 

0027 

01,2743 

55*415 

1 

TS 

LST2  +8D 

275690  YUL  SYSTeM  pOR  8LK2!  ReViSiON  0 Op  PROgRAM  ReTREDAA  BY 


FRESH  START  Ap|D  RESTART 


0028 

0029 

01,2794 

55'4i7 

0 

TS 

01,2795 

4 4270 

1 

cs 

0030 

01,2796 

55*906 

0 

TS 

00^1 

01,2747 

55'4l0 

1 

TS 

0032 

01,2750 

55*912 

0 

TS 

0033 

01,2751 

55*419 

0 

TS 

0034 

01,2752 

55*916 

1 

TS 

0035 

01,2753 

55*420 

1 

TS 

0036 

01,2754 

4 7653 

1 

CS 

0037 

01,2755 

54  153 

1 

TS 

0038 

01,2756 

54  167 

0 

TS 

0039 

01  2757 

54  203 

1 

TS 

0040 

01,2750 

54  217 

1 

TS 

0041 

01,2761 

54  233 

1 

TS 

0042 

01,2762 

54  297 

1 

TS 

0043 

01,2763 

54  263 

1 

TS 

00^35 

01,2769 

54  q67 

1 

TS 

00A4 

01,2765 

3 3050 

1 

CAp 

0045 

01,2766 

54  269 

0 

TS 

0046 

01,2767 

6 3051 

0 

AD 

OO47 

01,2770 

54  34O 

1 

TS 

0048 

01,2771 

6 3051 

0 

AD 

OO49 

01,2772 

54  419 

1 

TS 

0050 

01,2773 

6 3051 

0 

Ad 

0061 

01,2774 

54  470 

0 

TS 

0052 

01,2775 

6 3051 

0 

AD 

OO53 

01,2776 

59  599 

0 

TS 

0054 

01,2777 

3 7696 

1 

CAP 

0055 

Oi,3000 

55*020 

0 

TS 

0056 

01,3001 

3 7650 

0 

CAP 

0057 

01,3002 

54  140 

0 dspoff 

TS 

OOgg 

01,3003 

4 7633 

1 

CS 

0059 

01,3004 

50  140 

1 

INDEX 

0060 

01,3005 

54  662 

1 

TS 

0061 

01,3006 

10  140 

0 

CCS 

0062 

01,3007 

0 3002 

0 

tc 

0063 

01,3010 

59  045 

1 

TS 

0064 

01  3011 

54  719 

1 

TS 

0066 

01,3012 

54  651 

1 

TS 

0067 

01,3013 

It  til 

1 

TS 

0068 

01,3014 

0 

TS 

0069 

01,3015 

54  655 

0 

TS 

OO7O 

01,3016 

59  65Z 

1 

TS 

0071 

01,3017 

54  660 

0 

TS 

0072 

01,3020 

54  66l 

1 

TS 

NASA  2021100 

JUL  9,  1965  (MAjN)  PAGE  U5 

USER'S  oWn  pAGE  No«  2 


LST2  +10D 
EmDTASk  +1 
LST2  +1 
LST2  +3 
UST2  +5 
LST2  *7 
LST2  +90 
UST2  +11D 

ZERO 

priority 

PRIORITY  +12[) 
PRIORITY  +29D 
PRIORITY  +36D 
PRIORITY  +48D 
priority  +60D 
PRlORjTY  +72d 

MAKE  ALL  EXECUTIVE  REGISTER  SETS 
AVAILABLE, 

NEWJOB 

SHOWS  NO  ACTIVE  JOBS. 

VAcIAdRC 

VACIUSE 

LTHVACA 

VAC2USE 

LTHVACA 

VAC3USE 

LTHVACA 

VAC9USE 

LTHVACA 

VACSUSE 

make  all  vac  areAs  available* 

ON^ 

DSRUPTSW 

GIVES  110  p|S  To  GET  READY  FqR  T4, 

ten 

MPAC 

0IT12 

MPAC 

DSPTAB 

MpAC 

DsPOFF 

turn  off  all  display  system  RELAYS, 

INLINK 

DSPCNT 

MODREG 

CADRSTOR 

REOREj 

clpass 

DSPLOCK 

MqNsAvE 

MONSaVeI 

KILL  monitor 

275690 
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JUL  9«  1965 


fReSh  start  and  restart 


0073 

01,3021 

54 

677 

0 

0074 

01.3022 

54 

641 

0 

0075 

01.3023 

54 

642 

0 

0076 

01.3024 

54 

702 

0 

0077 

01.3025 

54 

703 

1 

OO78 

01.3026 

54 

7O4 

0 

USER'S  OWN  page  no,  3 


TS 

GRABLOCK 

TS 

verbreg 

TS 

NOUNREG 

TS 

DSPLIST 

TS 

DSPLIST  +1 

TS 

DSPLIST  *2 

275690 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

OOgSl 

00852 

00853 

00854 

00855 

008* 

0087 

0088 

00881 

A00882 

A00883 

00884 

0089 

OOgO 
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fReSh  start  aNd  Restart 


uSgRts  Own  page  no,  4 


01,3027 

54  620 

1 

TS 

STATE 

01,3030 

54  621 

0 

TS 

state  ♦! 

01,3031 

54  622 

0 

TS 

STATE  +2 

01,3032 

54  623 

1 

TS 

STATE 

01,3033 

54  705 

1 

TS 

EXTVBACT 

01,3034 

3 7647 

0 

CAF 

NOUTCON 

01,3035 

54  656 

0 

TS 

NqUT 

01,3036 

4 3046 

1 

cs 

ChANIIC 

01,3037 

0 0006 

1 

extend 

01,3040 

03  Oil 

1 

WANd 

dsalmout 

01,3041 

3 3047 

1 

CAF 

LESCHK 

01,3042 

55*043 

0 

TS 

selfret 

01,3043 

4 45O6 

1 

CS 

VDl 

01,3044 

54  637 

1 

TS 

DSpCoUNT 

01,3045 

0 0114 

0 

Tc 

buf 

01,3046 

00164 

1 

CHAnHC 

OCT 

00164 

01,3047 

05010 

0 

LESCHk 

adres 

SMODECHk 

01,3050 

00264 

1 

VACIADRC 

ADRES 

VACIUSE 

01,3051 

00054 

0 

LTHVACA 

DEC 

44 

turn  off  interpreter  Switches, 


MAKE  extended  VERBS  AVAILABLE 


TURN  OFF  UPLINK  ACTIVITY,  KEY 
RLsE*  V/N  flash*  OPERAtOR  ERROR 
IN  both  FReSh  START  ANp  RESTART. 

self  check  go-to  register. 


CHAn  11  BITS  3, 5, 6, 7, 
UPLINK  Activity,  KeY  rlse* 
v/N  flash,  operator  error. 
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TARUPT  program  USER’S  O^N  Pi6E  NO,  I 


0001 

01,3052 

54  016 

1 

T4RUPT 

T5 

bankrupt 

0002 

01,3053 

56  002 

0 

XCH 

Q 

0003 

01,3054 

54  012 

0 

TS 

QRUPT 

0004 

01,3055 

3 7653 

0 

CAF 

ZERO 

0005 

01,3056 

0 0006 

1 

EXTEND 

0006 

01,3057 

01  OlO 

1 

WRITE 

OUTO 

0007 

01,3060 

11*020 

0 

CCS 

DSRUPTSW 

0008 

01,3061 

0 3063 

1 

TC 

SPECRUPT 

2ER0  OUTO  lO 

MS  AFTER  regular  T4RUPT 

0009 

01,3062 

0 3072 

1 

TC 

T4RUPTA 

0010 

01,3063 

3 7653 

0 

SPEcRUPT 

CAF 

Zero 

0011 

01,3064 

55*020 

0 

TS 

DSRUPTSW 

0012 

01,3065 

3 3071 

1 

CAF 

llOMRUPT 

RE  establish 

120  MS  PERIOD 

0013 

Oi , 3066 

54  02? 

0 

TS 

TIME4 

0014 

01,3067 

0 4325 

1 

TC 

RESUME 

00141 

01,3070 

3776A 

0 

120MRUPT 

OCT 

37764 

0015 

01,3071 

37765 

1 

llOMRUPT 

OCT 

37765 

R0016  RELTAB  IS  A PAcKEq  TabLE.  RELAYWORq  c^dE  IN  UPPER  A BITS.  RELAY  cOpE 
R0017  IN  LOwER  5 BITS. 


OOlB 

4333 

SeTLOC 

ENDWAITp 

OOlg 

4333 

04025 

1 

RELTAB  OCT 

O4O25 

0020 

4334 

10003 

0 

OCT 

10003 

0021 

4335 

14031 

0 

OCT 

I4O3I 

0022 

4336 

20033 

0 

OCT 

20033 

0023 

4337 

24017 

1 

OCT 

24017 

0024 

4340 

30036 

1 

OCT 

30036 

0025 

4341 

34034 

1 

OCT 

34O34 

0026 

4342 

4O023 

1 

OCT 

40023 

0027 

4343 

44035 

1 

OCT 

44035 

0028 

4344 

50037 

0 

OCT 

50037 

002q 

4345 

54000 

0 

OCT 

54000 

OO3O 

4346 

600O0 

1 

RELTABll  OCT 

60000 

00301 

4347 

ENDT4FF 

equals 

0033 

01,3072 

SeTLOc 

llOMRUPT  ♦! 

00331 

01,3072 

3 3070  0 

T4rUrTA 

CAF 

120MrUrT 

00332 

01,3073 

54  027  0 

TS 

TIM£4 

0034 

01^3074 

10  676  1 

CDRvE 

CCS 

DsPtAB  +11D 

0035 

01,3075 

0 3104  1 

Tc 

DSPOUT 

IN  F-'F 


IN  bank 
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T<iRUPT  program 


USER'S  Own  page  no,  2 


0036 

01,3076 

0037 

01,3077 

0038 

01,3100 

0039 

01,3101 

OO4O 

01,3102 

OOaI 

01,3103 

0 3104  1 

TC 

DSPOUT 

56  675  0 

XCH 

DSPTAB  *110 

7 4503  1 

MASK 

town 

54  676  1 

TS 

DsPtAB  +110 

6 4346  1 

AD 

RELTABll 

0 3143  1 

TC 

DSPLAYC 

(MAIN)  PAGE  130 
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tarupt  program 


USER'S  OWN  page  no,  3 


P0058  DSpOuT  PROGRAM,  PUTS  OUT  DISPLAYS, 


0059 

01,3104 

10  656 

0 

DSPOUT 

CCS 

NOUT 

entered  in  interrupted  state  at  end  Op 

0060 

01,3105 

0 3107 

1 

TC 

*2 

DSRUPT 

0061 

01,3106 

0 4325 

1 

TC 

LVDSRUPT 

00*2 

01,3107 

54  656 

0 

TS 

NOUT 

0063 

01,3110 

4 7653 

1 

cs 

2ER0 

OOftA 

01,3111 

54  624 

0 

TS 

DSRUPTEM 

SET  To  -0  FqR  1ST  PASS  THRU  DSPTAB 

0065 

01,3ll2 

56  714 

0 

XCH 

DSPCNT 

0066 

01,3113 

6 7654 

1 

AD 

NEGO 

TO  prevent  40 

0067 

01,3114 

54  714 

1 

TS 

DSPCNT 

0068 

01,3115 

50  714 

0 

DSPSCAN 

INDEX 

DSPCNT 

0069 

01,3116 

10  662 

1 

CCS 

DSPTAB 

OO7O 

01,3117 

10  714 

1 

CCS 

DSPCNT 

IF  DSPTAB  entry  +,  SKIP 

0071 

01,3120 

0 3113 

1 

TC 

DSPSCAN  -2 

IF  DSPCNT  ♦,  AGAIN 

0072 

01,3121 

0 3132 

1 

TC 

DSPLAY 

IF  DSpTAB  ENTrY  -,  DISPLAY 

OO73 

01,3122 

00012 

1 

tablnth 

OCT 

12 

DEC  10  Length  of  qsptab 

007A 

01,3123 

10  624 

0 

CCS 

DSRUPTEM 

IF  DSRUPTEMb40,2ND  pass  THRU  DSPTAB 

0075 

01,3125 

LOC 

♦ 1 

(DSPCNTaO),  +0  INTO  NOUT,  RESUME 

0076 

01,3125 

54  656 

0 

TS 

NOUT 

0077 

01,3126 

0 4325 

1 

TC 

LVDSRUPT 

0078 

01,3127 

54  624 

0 

TS 

DSRUpTEM 

IF  DSRUpTEM»-0,lST  pASS  THRU  DSpTAB 

0079 

01,3130 

3 3122 

0 

CAF 

TABLNTH 

(DSPCNTsO),  40  INTO  DSRUPTEM,  PASS  AGAIN 

0080 

01,3131 

0 3114 

0 

TC 

DSPSCAN  -1 

0081 

01,3132 

6 7646 

1 

dSPLaY 

AD 

ONE 

0082 

01,3133 

50  714 

0 

INDEX 

DSPCNT 

0083 

01,3134 

54  662 

1 

TS 

DSPTAB 

REPLACE  POSITIVELY 

0084 

01,3135 

7 4503 

1 

MASK 

LOWll 

REMOVE  bits  12  TO  I5 

0085 

01,3136 

54  624 

0 

TS 

DSRUPTEM 

0086 

01,3137 

3 4475 

0 

CAP 

HI5 

0087 

01,3140 

50  714 

0 

INDEX 

DSPCNT 

0088 

01,3141 

7 4333 

1 

MASK 

reltab 

Pick  up  bjts  12  to  15  of  reltab  entry 

0089 

01,3142 

6 0624 

1 

AD 

DSRUPTEM 

OO9O 

01,3143 

0 0006 

1 

DSpLAYC 

extend 

OOql 

01,3144 

01  010 

1 

write 

OUTO 

0092 

01,3145 

55*023 

0 

TS 

DISPBUF 

THIS  WILL  BE  SENT  DOWN  NExT  TM  CyCLE. 

0093 

01,3146 

3 7626 

1 

CAP 

lOMSRUPT 

SeT  T4  to  interrupt  in  10  MS, 

0094 

01,3147 

54  027 

0 

TS 

TIME4 

0095 

01,3150 

3 7646 

1 

CAF 

ONE 

OOqfe 

01,3151 

55*020 

0 

TS 

DSRUPTSW 

SET  FOR  SPECRUPT 

OO97 

01,3152 

0 4325 

1 

TC 

LVdSRUPT 

0098 

4325 

LvdsRupt 

EQUALS 

RESUME 

0099 

7626 

lOMSRUPT 

B 

POSMAX 
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KEyRuPT,  UPRUPT 

USER'S 

o^gN  Page 

NO,  1 

0001 

0U3153 

54  016 

1 

KeYRUPTI 

TS 

bankrupt 

000? 

01«3l54 

56  002 

0 

XCH 

0 

0003 

01.3155 

54  012 

0 

TS 

qrupt 

0004 

01,3156 

0 4526 

1 

TC 

LODSAMPT 

time  is 

snatched 

iN  RUPT  for  noun  65, 

OOOg 

01,3157 

3 4473 

0 

CAF 

LOWS 

0006 

01,3160 

0 0006 

1 

extend 

0007 

01,3161 

02  015 

1 

RAND 

MNKEYiN 

0000 

0i,3l62 

6 7634 

1 

KEYCOM 

AD 

BiTll 

0009 

01,3163 

55»024 

1 

TS 

tmkeybuf 

OOlO 

01,3164 

3 4502 

1 

CAF 

cHRPRIO 

0011 

01,3165 

0 4131 

0 

TC 

NovAC 

0012 

El 

EBANKs 

DSPCOUNT 

0013 

0 1 , 3l66 

02002 

1 

2CADR 

CHARIN 

C0013 

01,3167 

10001 

1 

0014 

01,3170 

3 4473 

0 

CAF 

LOWS 

0015 

01,3l7l 

7 1024 

1 

MASK 

TMKEYBUF 

0016 

01,3172 

50  635 

1 

INDEX 

LOCCtR 

0017 

01,3173 

54  140 

0 

TS 

MPAC 

LEAVE  5 

Bit  key 

CDE  iN  MPAC  FOR  ChARjN 

0010 

01,3174 

0 4325 

1 

TC 

RESUME 

0019 

01,3175 

54  016  1 

KEYRUPT2  TS 

BANKRUPT 

0020 

01,3176 

56  002  0 

XCH 

Q 

0021 

01,3177 

54  012  0 

TS 

ORUPT 

0022 

01,3200 

0 4526  1 

TC 

LODSAMPT 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN  65. 

0023 

01,3201 

3 4473  0 

CAF 

LOWS 

0024 

01,3202 

0 0006  1 

extend 

0025 

01,3203 

02  016  1 

RAND 

navkeyin 

0026 

01,3204 

0 3162  1 

TC 

KEYCOM 

275690 

P0O27 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

00^0 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

004fl 

0049 

0050 

0051 

0052 

0063 

0064 

0055 

0056 

0057 

0058 

0059 

OOfeO 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

OO73 

0074 
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KEyRUPT,  UPRUPT  USER'S  OwN  P*GE  NO.  2 

UPrUPT  program 


01,3205 

54  016 

I 

UPRUPT 

T5 

bankrupt 

01,3206 

56  002 

0 

XCH 

Q 

01,3207 

54  012 

0 

TS 

QRUPT 

01,3210 

0 4526 

1 

TC 

LOOSAMPT 

time  is  SNATCHED  IN  RUPT  FOR  NOUN 

65, 

01,3211 

3 7653 

0 

CAF 

Zero 

01,32i2 

56  045 

0 

XCH 

INLINK 

01,3213 

54  629 

0 

TS 

kettempi 

01,3214 

3 7699 

0 

CAF 

BIT3 

TURN  ON  UPACT  LIGHT 

0i,32l5 

0 0006 

1 

EXTEND 

(BIT  3 OF  channel  11) 

01,3216 

O5  Oil 

1 

WOR 

OSALMOUT 

01,3217 

3 4473 

0 

uprpti 

CAF 

LOWS 

test  for  triple  Char  redundancy 

01,3220 

7 0629 

0 

MASK 

keytempi 

LOWS  OF  WORD 

01,3221 

56  624 

1 

XCH 

KEYTEMPl 

LOW5  INTO  keytempi 

01,3222 

56  021 

1 

XCH 

SR 

WHOLE  wORD  into  SR 

01,3223 

54  636 

0 

TS 

KEYTEMP2 

original  SR  INTO  KEYTEMP2 

01,3224 

0 3274 

0 

TC 

SRQHT5 

01,3225 

7 9473 

1 

mask 

LOWS 

MID  5 

01,3226 

6 3311 

1 

AD 

HIlO 

01,3227 

0 3303 

1 

TC 

UPTEST 

01,3230 

0 3274 

0 

TC 

SR(5hT5 

01,3231 

7 4473 

1 

MASK 

LOWS 

high  5 

01,3232 

4 0000 

0 

COM 

01,3233 

0 3303 

1 

TC 

UPTEST 

0i,3234 

0 327° 

1 

UPOK 

TC 

RESTORSR 

CODE  IS  GOOD 

01,3235 

4 3241 

1 

Cs 

eurcode 

IF  CODE  » ERROR  LIGHT  REsET*  PUT 

♦ 0 

01,3236 

6 0624 

1 

AD 

keytempi 

INTO  BITI  OF  UPLOCK, 

01,3237 

10  000 

0 

CCS 

A 

IF  CODE  NOT"  ELR,  PASS  CODE  ONLY 

IF 

01,3240 

0 3247 

0 

TC 

TSTUpLoK 

BITI  oF  UpLoCK  a 0, 

01,3241 

00022 

1 

eLRcOde 

OcT 

22 

01,3242 

0 3247 

0 

TC 

TSTUPLOK 

01,3293 

4 7696 

0 

Cs 

BItI 

Put  0 into  siyi  of  uplock 

01,3294 

7 0715 

0 

MASK 

UPLOCK 

01,3245 

59  715 

0 

TS 

UPLOCK 

01,3246 

0 3253 

0 

TC 

ACCEpTUp 

01,3247 

3 7696 

1 

TSTUPLOK 

CAF 

biti 

01  3250 

7 0715 

0 

MASK 

UPLOCK 

0i;325l 

10  000 

0 

CCS 

A 

01,3252 

0 4325 

1 

Tc 

RcSUMp 

biti  of  UPLOfK  s 1, 

01,3253 

56  629 

1 

ACCEPTUP 

xCH 

KEyTEMPl 

BiTl  OF  uPLOCk  s 0, 

01,3254 

6 7641 

0 

AD 

B1T6 

01,3255 

0 3162 

1 

Tc 

K^YcOM 

01,3256 

0 3270 

1 

tMFAIL2 

T^ 

REstORSR 

CODE  Is  sad 

01,3257 

4 7696 

0 

CS 

BtTl 

LOCK  OUT  further  UPLiNK  ACTiViTY 

(BY 

01,3260 

7 0715 

0 

MASK 

UPLOCK 

PUTTING  1 INTO  BiTi  OF  UPLOCK)  UNTIL  ELr 

01,3261 

6 7696 

1 

AD 

BITI 

is  senT  Up  Uplink. 

01,3262 

54  7I5 

0 

TS 

UPLOrK 

01*3263 

3 ■^636 

0 

CAF 

BIT9 

SEND  DOWN  INDICATION  THAT  UPLINK 

HAS 
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KEyRtlPT,  UPRUPT  USER'S  O^N  PAGE  NO.  3 


00?5 

01,3264 

6 7634  1 

Ad 

81TU 

RECEIVED  BAD  CODE. 

OOTS 

gl,3265 

55'n24  1 

TS 

tmkeybuf 

0077 

01,3266 

0 4325  1 

TMFAItl 

TC 

TMAiM 

0078 

01,3257 

0 4326  1 

TC 

RESUME 

0079 

01,3270 

56  636  1 

rESTOrSr  xch 

KEYTEMp2 

0080 

01,3271 

6 0000  1 

POUBLe 

0081 

0i,32?2 

54  O2I  0 

TS 

SR 

0082 

01,3273 

0 0002  0 

TC 

D 

C0g3 

4325 

TMALM 

3 

RESUME 

FOR  NOW 

0084 

01,3274 

4 0021  0 

SRGHT5 

cs 

SR 

0085 

01,3275 

4 0021  0 

cs 

SR 

0086 

01,3276 

4 0021  0 

Cs 

SR 

0087 

01,3277 

4 0021  0 

cs 

SR 

0088 

01,3360 

4 0021  0 

CS 

SR 

0089 

01,3301 

4 0000  0 

cs 

A 

0090 

01,3302 

0 0002  0 

TC 

Q 

DELIVERS  WORD  UNCOMPLEMENTED 

OO9I 

01,3303 

6 0624  1 

UPTEST 

AD 

KEYTEMPI 

0092 

01,3304 

10  000  0 

CCS 

A 

0093 

01,3305 

0 3256  0 

TC 

TMFA1L2 

0094 

01,3307 

LOC 

♦ 1 

0095 

01,3307 

0 3256  0 

TC 

TMFAIL2 

0096 

01,3310 

0 0002  0 

TC 

Q 

OO97 

01,3311 

7774O  1 

HIIO 

OCT 

77740 

OO98 

4214 

UPBANK 

EQUALS 

EXECBANK 

!N  same  bank  AS  EXEC. 

OO99 

01,3312 

03777  0 

B12-1 

OCT 

3777 

ROlOO  UPACT  is  turned  off  by  VBRELDSPf  ALSO  BY  ERROR  LIGHT  RESET 
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KEyRUPT,  UPRUPT  USER'S  OWN  PAGE  NO,  4 

ROlOl  THE  RECEPTION  OF  A BAD  CODE  By  UPLiNr  LOCkS  OUT  FURTHER  UPLiNk  ACTIVITY 

R0102  by  PLACING  A 1 INTO  BITl  OF  UPLOCK,  BIT9  (A(  ONG  WITH  BITID  OF  TMKEYBUF 

R0103  IS  SET  TO  I TO  SEND  AN  INDICATION  OF  THIS  SITUATION  DOWN  THE  DOWNLINK. 

R0104  THf  UPLINK  INTERLOCK  IS  ALLOWeD  WHeN  AN  eRROR  LIGHT  RESET  CODE  IS  SENT 

R0105  UP  THE  UPLINK,  OR  wHEN  A FRESH  START  IS  PERFORMED, 


275690  YUl  SYSTEM  FOR  BlK2!  rEVISIqN  0 OF  PrOQrAM  rETrED4«  BY  NASA  202U00 


jUt  9*  1965 


(MAIN) 
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pinball  GAME  BUTTONS  AND  LIGHTS  USER'S  O^N  PAGE  NO.  1 

Roool  Keyboard  and  display  proqRam 


R0002  The  following  quotation  i$  provided  Through  ThE  coutesy  of  ThE  auThOrs, 

R0003  niT  WILL  BE  PROVED  jO  |HY  FACE  jHAt  xHOu  HAst  MEN  ABOyi  THEE  jHAf 

R0004  USUALLY  TALK  Op  A NOUN  ANp  A veR»i  ANq  SuCr  ABOMINABLe  WOrdS  AS  NO 
R0005  CHRISTIAN  EAR  CAN  ENDURE  TO  HEAR,!! 

R0006  Henry  6»  act  z,  scene  a 


R0007  The  following  assignments  for  PiNBALL  are  made  elsewhere 


R0008  reserved  FOR  PiNBAll  EXECUTIVE  ACTION 


R0009 

DSpCOuNT 

ERASE 

display  position  indicator 

ROOlO 

DECBrNCh 

erase 

♦DEC,  , DEC,  CCT  indicator 

ROOU 

VErBreQ 

erase 

verb  code 

R0012 

NOuNREQ 

ERASE 

NCuN  code 

R0013 

xreq 

ERASE 

Rl  INPUT  buffer 

ROOU 

YREG 

ERASE 

R2  INPUT  BUFFER 

R0015 

ZREG 

ERASE 

R3  INPUT  Buffer 

R0016 

xreglp 

erase 

LO  PART  Of  XREG  (pOR  DEC  CONV  ONlYj 
LO  part  of  YREG  (FOR  DEC  CONV  ONLY) 

ROOl? 

YRECLP 

ERASE 

Rooia 

ZRE!5LP 

erase 

LO  part  of  ZREG  (FOR  DEC  CONV  ONLY) 

R0019 

MOoReg 

dsplock 

erase 

mode  code 

R0020 

ERASE 

KEyBoArD/SUBROUTINE  call  INTERLOCK 

R0021 

REQREj 

erase 

return  register  for  load 
STATUS  indicator  pOR  UOADTST 

R0022 

lqadstat 

erase 

R0023 

CLpASS 

ERASE 

PASS  indicator  clear 

R0024 

NOyT 

ERASE 

activity  COuNtER  for  OsPtAB 

R0025 

NOuNcAdR 

erase 

machine  CAdR  pOR  NOUN 

N/v  CODE  FOR  MONITOR.  (*  MONsAyEl-l) 

NOUNCADR  FOR  MONITOR (MATBS ) sMONSAvE  ♦! 

R0026 

MONSAvE 

ERASE 

R0027 

MONSAVEl 

erase 

R002g 

D5PTAB 

erase 

♦13D 

0-10, DISPLAY  PANEL  BUFFER. U-13tC  RElAyS 

R0029 

CADRstOR 

GRABL(JCi/ 

ERAsE 

ENDIDLE  storage 

R0030 

erase 

INTERNAL  interlock  FOR  DISPLAY  SYSTEM 

R0031 

NVQTEM 

ERASE 

NV5UB  STORAGE  FOR  CALLING  ADDRESS 

R0O32 

R0033 

NVBNKTeM 

erase 

Must  ® nvbnktEm-i 

NVSUB  storage  for  calling  bank 

R0034 

Must  » nvqtem.i 

R0035 

DSPLiST 

ERASE 

♦ 2 

waiting  List  for  dsp  syst  internal  use 

R0036 

extvbact 

REASE 

EXTENDED  VERB  ACTIVITY  INTERLOCK 

R0037 

R0038 

DsPtEMI 

DSPTeMZ 

ErAsE 

erase 

♦ 2 
♦ 2 

ByFFER  StORAQE  ArEA  1 (MOstLY  FOR  tIME) 
buffer  storage  area  Z (MOSTLY  fCR  DEg’ 

275690  YUL  System  for  BLK2S  revision  0 OF  PROGRAM  RETRED44  BY  NASA  2021100 


(MAIN)  PAGE  136 


JUL  9,  1965 

PINBAEL  game  buttons  and  lights  USER'S  OWN  page  NO.  2 

r0039  end  of  ErASABLES  reserved  for  pinball  executive  action 


rOOAO  temporaries  for  pinball  executive  action 


ROOAI 

DSEXIT 

a 

INtBis* 

RETURN  FOR  DSPIN 

R00A2 

exitem 

9 

INtBIS* 

return  FOR  SCALE  FACtOR  ROUTINE  SELECT 

ROOA3 

BLANKRET 

3 

INtBIS* 

RETURN  FOR  2BLANK 

R00A4 

WRDRET 

a 

INTBITIS 

RETURN  FOR  5BLANK 

R00<t5 

wdret 

a 

INTBITIS 

return  FOR  DSPWD 

R0046 

DECRET 

a 

intBitis 

RETURN  FOR  PUTCOM(DEC  LOAD) 

ROO47 

21/22REG 

a 

INTBITIS 

TEMP  FOR  CHARIN 

ROOAS 

updatret 

a 

POLISH 

return  for  uPDATNN,  UPDATvB 

R0049 

CHAR 

a 

POLISH 

TEMP  FOR  CHARIN 

ROO5O 

ERCNt 

a 

POLISH 

counter  for  ERROR  LIGHT  RESET 

R0051 

decount 

a 

POLISH 

counter  for  SCALING  AND  DISPLAY  (DEC) 

ROO52 

SQNON 

a 

VBUF 

TEMP  FOR  *..  ON 

r0053 

nountem 

a 

VBUF 

Counter  for  mixnoun  fetch 

R0054 

DIsTeM 

a 

VBUF 

counter  fOR  octal  display  verbs 

R0O55 

DECTEM 

a 

vBUF 

counter  for  fetch  (Dec  display  verbs) 

R0056 

SqNOff 

a 

VBUf  +1 

Temp  for  ♦*-  on 

ROOST 

nvtemp 

a 

VBUF  *1 

TEMP  FOR  NVSUB 

R0068 

SFTEMpl 

a 

VBuF  +1 

storage  For  sf  const  hi  part(»sftemp2-d 

R0059 

CODE 

a 

vBUF  *2 

FOR  DSPIN 

R0060 

SFTEMp2 

a 

VBUF  +2 

storage  For  sf  Const  lo  pArt(=sftempi*d 

ROO61 

MIXTEMP 

a 

VBUF  *3 

FOR  MIXNOUN  DATA 

R0062 

signret 

a 

VBUF  +3 

RETURN  FoR  +t-  ON 

ROO63 

ALSO  MIXTEMP*! 

« VBUF+4,  M 

IXTEMP+2  s VBUF*5, 

R0064 

entret 

a 

DOTiNC 

exiT  from  enter 

R0065 

wDCNt 

a 

dotret 

char  counter  for  DSPwD 

R0066 

iNrel 

a 

dotret 

INPUT  buffer  selector  ( X.Y.Zi  REG  ) 

R00671 

DSPMMtEM 

a 

MAtINC 

DspCOuNT  SAvE  for  DSPMM 

R0068 

MixBR 

a 

matinc 

indicator  for  Mixed  or  normal  noun 

R0069 

R0070 

temi 

DSREL 

ERASE 

a 

TEMI 

ExEC  TEMP 

rel  address  for  DSPiN 

R0071 

R0072 

TEM2 

DSMAg 

ERASE 

a 

TEM2 

ExEC  temp 

MAqNjTUDE  store  for  DSPiN 
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r0073 

R0074 

ROO75 

R0076 

ROO77 

r0078 

R0079 

pooao 

R0081 

r0082 

R0083 

R0084 

R0085 

R0086 

R0087 

R0088 

R0089 

rOOSO 

R0091 


R0092 

R0093 

R0094 

A0095 

R0096 


R0097 

ROO^S 

R0099 

ROlOO 

ROlOl 
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IDaDDtEM 

a 

TEm2 

MIxNOUN  indirect  ADDRESS  STORAGE 

TEM3 

count 

erase 

a 

TEM3 

EXeC  TeMP 
FOR  DSPIN 

TEmA 

LStPTR 

ERASE 

a 

TEM4 

EXEC  TEMP 

LIST  pointer  for  GRABUSY 

rELRET 

a 

tema 

return  for  rELDSP 

FReeReT 

a 

TeMA 

Return  for  freedsp 

TEm5 

nounadd 

Erase 

a 

TeM5 

EXEC  TEMP 

TeMP  storage  for  noun  Address 

NNADTEM  ErASE 
NNtYPTeM  erase 
IDaDITEM  erase 

I0aD2TEM  erase 

IDaD3TEM  erase 

rUTMXTEM  ErASE 

eNo  of  Temporaries  for 

TEMP  for  noun  address  TABLE  ENTrY 
TeMP  for  noun  type  table  entry 
temp  for  INDIR  ADrESS  table  entry (MIxNN) 
must  » IDAD2TEM.1,  = IDAD3TEM_2. 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY (MIxNN) 
MjjST  = IOADItEM+1*  = IDAD3TEM-1, 

TEMP  FOR  iNDlR  ADRESS  TABLE  ENTRY(MIXNN) 
must  = IDADITEM+2*  » IDAD2TEM+1, 

TEMP  FOR  SF  rout  TABLE  ENTrY (MIXNN  ONLY) 
PINBALL  executive  ACTION 

Reserved  f°R  pinball  interrupt  action 


DsPCNT  ERAjE  counter  FOR  DsPOUT 

UPlOcK  erase  BITI  » UPLINX  INTERLOCK  (ACTIVATED  BY 

end  of  erasables  reserved  for  Pinball  interrupt  action 


RECEPTION  OF  A BAD  MESSAGE  IN  UPLINK) 


temporaries  for  pInSAll  Interrupt  action 

KEyTEMPl  s wAITExIT  TEMP  FOR  KEyRUPT,  UPRUPT 

DSrUPTEM  s WAiTEXiT  TEMP  FOR  OSPOUT 

KEYTEMP2  a RUPTAGN  TEMP  FOR  KEYRUPT*  UPRUPT 

end  of  temporaries  for  pinball  interrupt  ACTION 
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pinball  game  Buttons  and  lights 

P0102  THE  INPUT  CODES  ASSUMED  FOR;  ThE  KEYBOARD  ARE* 


R0103  0 10000 
ROlOA  1 00001 
R0105  9 01001 
R0106  VERB  10001 
R0107  ERROR  RESlOOlO 
R0108  KEy  RLSE  11001 
R0109  * 11010 
Roiio  . non 
ROlll  enter  11100 
R0112  clear  11110 
R0113  noun  11111 


JUL  9*  1965 
USER'S  OWN  PAGE  NO.  A 


ROllA  nUrpUT  FoRMAT  FqR  DISdLAy  pAnEL,  SET  nUTO  Tn  AAAABCCCCCDDODD, 

R0115  A-S  select  A RELAYWORD,  THIS  DETERMINES  WHICH  PAIR  OF  CHARACTERS  ArE 
R0116  ENERGIZED, 

R0117  B pOR  special  RELAYS  SUCH  *3  SiGNS  ETC, 

R0118  c-s  5 Bit  relay  Code  for  left  char  of  pair  selected  by  relayword 

r0119  D-S  3 bit  relay  CqDE  Fqr  rIQHTCHAr  oF  PAIr  SELECTED  By  rELAYWOrD, 


R0120 

thf  panel  appears  . 

AS  FOLLOWS, 

R0121 

MDl 

MD2 

(major  MODE) 

R0122 

VDl 

VD2 

(VERB) 

ndi  ndz 

(NOUN) 

R0123 

RlOl 

R1D2 

R1D3 

RIDA  R1D5 

(Rl) 

R012A 

r2o1 

R2D2 

r2d3 

R2DA  R2D5 

(r2) 

R0125 

R3d1 

R302 

R3d3 

R^DA  R3D5 

(R3) 

R012* 

EACH 

OF  THESE  IS  GIVEN  A DSpCOUNT 

number  for  use 

R0127 

mdi 

25 

RZDl 

11  ALL 

ARE  qCTAl 

R0128 

M02 

2A 

R202 

10 

R0129 

VDI 

23 

R2D3 

7 

R0130 

VD2 

22 

R2D4 

6 

R0131 

NOl 

21 

R2D5 

5 

R0132 

ND2 

20 

R3D1 

A 

R0133 

RlDl 

16 

R3D2 

3 

R013A 

R1D2 

15 

R3D3 

2 

R0135 

r103 

lA 

R3DA 

1 

R0136 

rIda 

13 

R3D5 

0 

R0137 

RlD5 

12 

R0138 

THeRe 

IS  AN 

11  RpGlSTER  table  (DSPTAB)  rOR  THe  d: 

r0139 

DSpTAB  rElAYWD 

BITU  bits  10-6  BIT! 

ROIAO 

RELAdD 

ROUl 

10 

1011 

MDl 

(25)  MD2 

R01A2 

9 

1010 

VDl 

(23)  yD2 

(2a) 

(22) 


(mAIN)  page  139 


R0143 

8 

1001 

NDl 

«21» 

ND2 

«20> 

r0144 

7 

1000 

RlDl 

U6) 

R0145 

6 

0111 

♦ R1 

RID2 

!15> 

R1D3 

U4j 

R0146 

5 

ono 

-Ri 

R1D4 

U3> 

RIDs 

«12| 

R0147 

4 

0101 

♦ R2 

R201 

an 

R202 

ao) 

R0148 

3 

0100 

.R2 

R2D3 

17} 

R2DA 

<6) 

R0149 

2 

0011 

R2D6 

«5! 

R3D1 

C4» 

rOISO 

1 

0010 

♦ R3 

R30Z 

(3> 

R3D3 

!Z) 

R0151 

0 

0001 

-R3 

R3DA 

a, 

R3D5 

(O5 

R0152 

0000 

NO  RELAYWORD 

275690  YUl  SYSTEm  FOR  BlKZ!  REVISION  0 Op  PROqRAm  RETREDAA  BY  NASA  202U00 
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R0153  the  5 bit  RELaV  cODES  aRE» 


R015A  blank  00000 
R0155  0 10101 
R0156  1 00011 
R0157  2 11001 
R0158  3 noil 
r0159  4 01111 

R0160  5 lino 
R0161  6 nioo 

R0162  7 10011 
R0163  8 11101 
r0164  9 11111 
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USER'S  OWN  page  NO,  6 


0166 

09»2000 

SETLOC 

0 

0 

0 

0 

CM 

0167 

04 

2000 

0 

3432 

1 

GRABUSYB 

TC 

GRABUSYI 

STANDARD 

Lead 

iNS.  DONT  MOVE. 

0l68 

04 

zqoI 

0 

3459 

1 

NVSUBSYB 

TC 

NVSUBSYl 

0169 

04 

2002 

3 

7696 

1 

ChARIN 

CAF 

ONE 

BLOCK 

display 

SYST 

OI7O 

04 

2003 

56 

652 

0 

XCH 

DSPLOCK 

MAKE 

DSP 

SYST 

BUSY,  BUT  SAVE  CL 

0171 

04 

2004 

59 

101 

0 

TS 

21/22REG 

C(0SPL0C|O  FOR 

ERROR  LIGHT  RESE 

OI72 

04 

2005 

56 

190 

1 

XCH 

MpAC 

0173 

04 

2006 

59 

103 

1 

TS 

char 

017A 

04 

2007 

50 

000 

1 

INDEX 

A 

0175 

04 

2010 

0 

2OII 

0 

TC 

♦1 

INPUT 

CODE 

FUNCTION 

0176 

04 

2011 

0 

3253 

0 

TC 

CHARALRM 

0 

0177 

04 

2012 

0 

2062 

1 

TC 

NUM 

1 

0178 

04 

2013 

0 

2062 

1 

TC 

NUM 

2 

0179 

04 

2014 

0 

2062 

1 

TC 

NuM 

3 

OlflO 

04 

2015 

0 

2062 

1 

TC 

NUM 

4 

Olai 

04 

2016 

0 

2062 

1 

TC 

NUM 

5 

0182 

04 

2017 

0 

2062 

1 

TC 

NuM 

6 

0183 

04 

2020 

0 

2062 

1 

TC 

NUM 

7 

OlgA 

04 

2021 

0 

2053 

0 

TC 

R9TEST 

10 

8 

0185 

04 

2022 

0 

2053 

0 

TC 

89TEST 

11 

9 

0186 

04 

2023 

0 

3253 

0 

TC 

CHARALRM 

12 

01s7 

04 

2024 

0 

3253 

0 

TC 

CHARALRM 

13 

0188 

04 

2025 

0 

3253 

0 

TC 

CHARALRM 

19 

0189 

O4 

2026 

0 

3253 

0 

TC 

CHARALRM 

15 

OI9O 

04 

2027 

0 

3253 

0 

TC 

CHArALRM 

16 

OI9I 

04 

2030 

0 

3253 

0 

Tc 

CHARALRM 

17 

0192 

04 

2031 

0 

2060 

0 

TC 

NUM  -2 

20 

0 

OI93 

04 

2032 

0 

2236 

1 

TC 

verb 

21 

VERB 

OlgA 

04 

2033 

0 

2393 

1 

TC 

ERROR 

22 

ERROR  LIGHT 

0195 

04 

2034 

0 

3253 

0 

tc 

CHARALRM 

23 

0196 

04 

2035 

0 

3253 

0 

TC 

CHARALRM 

24 

0197 

O4 

2036 

0 

3253 

0 

TC 

CHARALRM 

25 

0198 

04 

2037 

0 

3253 

0 

TC 

CHAdALrM 

26 

0199 

04 

20A0 

0 

3253 

0 

Tc 

CHARaLRM 

27 

0200 

04 

2091 

0 

3253 

0 

TC 

CHARALRM 

30 

0201 

04 

2092 

0 

3276 

1 

TC 

VBRELDSP 

31 

key  Release 

OzOz 

O4 

2O43 

0 

2267 

0 

TC 

POSGN 

32 

♦ 

0203 

04 

2099 

0 

2259 

0 

tC 

NEGsGN 

33 

« 

0204 

04 

2095 

0 

2051 

1 

TC 

ENTeRJMP 

34 

ENTeR 

O2O5 

O4 

2O46 

0 

3253 

0 

TC 

CHARALRM 

35 

0206 

04 

2097 

0 

2407 

0 

TC 

Clear 

36 

Clear 

O2O7 

04 

2050 

0 

225O 

1 

TC 

NOUN 

37 

NOUN 

275690 

020r 

0209 

0211 

0212 

0213 

02U 

0215 

R0216 

R0217 

R0218 

p0219 

R0220 

R0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

023p 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 
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04,2051 

0 4102 

0 

ENTERJMP 

TC 

postjump 

04,2052 

12003 

1 

CADR 

enter 

04,2053 

3 6165 

0 

89TEST 

CAF 

three 

04,2054 

7 0640 

1 

MASK 

decbrnch 

04,2055 

10  000 

0 

CCS 

A 

04,2056 

0 2062 

1 

TC 

NUM 

IF  decbrnch 

IS 

♦,  8 OR  9 OK 

04,2057 

0 3253 

0 

TC 

CHArALRM 

IF  decbrnch 

IS 

♦0,  reject  8 or  9 

NuM  ASSEMBLES  OCjAL  3 BITS  At  A TIME,  FOR  DECIMAL  IT  CONVERTS  INCOMING 
WORD  AS  A FRACTION,  REtPlNG  RESULTS  TO  OP, 

oCtal  results  are  left  in  xreg,  yreg,  or  zreg.  hi  part  of  dec  in  XREG, 

YrEG,  ZrEG,  the  low  pArTS  in  XrEGLPi  YrEGLp,  Or  ZrEGLP) 
decbrnch  is  Left  at  +o  for  oct*  *i  for  + osct  *z  for  - dec* 
if  DsPCOuNT  wAS  left  -*  NO  MORE  DAtA  IS  ACCEPTED, 


04,2060 

3 7653 

0 

CAF 

ZERO 

04,2061 

54  103 

1 

T5 

char 

04,2062 

10  637 

1 

NUM 

CCS 

DSPCOUNT 

04,2063 

0 2067 

1 

TC 

♦4 

04,2064 

0 2067 

1 

TC 

♦ 3 

04,2065 

0 2066 

0 

TC 

♦1 

04,2066 

0 4205 

1 

TC 

ENDOFJOB 

04,2067 

0 2205 

1 

TC 

GETInREl 

04,2070 

10  655 

0 

CCS 

CLPASS 

04,2071 

3 7653 

0 

CAF 

ZERO 

04,2072 

54  695 

0 

TS 

CLPASS 

04,2073 

0 2074 

0 

TC 

♦ 1 

04,2074 

50  103 

0 

INDEX 

char 

04,2075 

3 4333 

0 

CAF 

reltab 

04,2076 

7 4473 

1 

MASK 

LOW5 

04,2077 

54  110 

0 

TS 

CODE 

04,2100 

3 0637 

0 

CA 

DSPCOUNT 

04,2101 

54  127 

1 

TS 

COUNT 

04,2102 

0 3157 

1 

TC 

DSPIN 

04,2103 

3 6165 

0 

CAF 

Three 

04,2104 

7 0640 

1 

MASK 

decbrnch 

04,2105 

10  000 

0 

CCs 

A 

04,2106 

0 2117 

1 

TC 

DECTOBIN 

04*2107 

5O  123 

1 

INDEX 

INREL 

04,2110 

56  641 

1 

xch 

VERBrEG 

04,2111 

54  022 

0 

TS 

CYL 

04*2112 

4 0022 

0 

cs 

CYL 

04*2113 

4 0022 

0 

C5 

CYl 

04*2114 

56  022 

1 

XcH 

cYL 

04  2115 

6 0103 

0 

AD 

char 

04*2116 

0 2134 

0 

Tc 

ENdNMTST 

04*2117 

5O  123 

1 

DECtOBIN 

INDEX 

INREL 

+ 

*0 

-BLOCK  DATA  iN  IF  DSPCOUNT  iS  - 

-0 

IF  CLPAS5  IS  ♦ OR  *0*  MAKE  IT  +0. 


♦0,  0C|AL,  +1,  ♦ DEC,  +2*  - DEC, 
♦ 

*0  OCTAL 
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02S4 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0262 

02s3 

0284 

0285 

0286 

0287 

0288 

02a9 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 
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YUL  system  for  0UK2i  REVISION  0 OF  PROGRAM  REtrED44  By  NASA  2021100 


JUL  9»  1965 


pinball  game  buttons  and  Lights 


USER'S  Own  page  no.  g 


04,2120 

56  6Al 

1 

XCH 

verbreg 

04,2121 

54  I4O 

0 

TS 

MPAC 

04,2122 

3 7653 

0 

CAF 

ZERO 

04,2123 

54  I4l 

1 

TS 

MPAC  +1 

04,2124 

3 7650 

0 

CAF 

TEN 

04,2125 

0 7257 

0 

TC 

SHORtMP 

04,2126 

56  I4l 

0 

XCH 

MPAC  .1 

04,2127 

6 0103 

0 

AD 

CHAR 

04,2130 

54  I4l 

1 

TS 

MPAC  +1 

04,2131 

0 2134 

0 

TC 

ENDNMTST 

04,2132 

26  140 

0 

ADS 

MpAC 

04,2133 

0 2152 

0 

tc 

DECEND 

04,2l34 

50  123 

1 

ENDNMTST 

INDEX 

INREL 

04,2135 

54  6AI 

0 

TS 

VERBREG 

04,2136 

4 0637 

1 

CS 

DsPCOuNT 

04,2137 

50  123 

1 

INDEX 

INREL 

04,2140 

6 2I76 

0 

AD 

CRITCON 

04,2141 

0 0006 

1 

extend 

04,2142 

1 2144 

0 

BZp 

endnum 

04*2143 

0 2173 

0 

TC 

MORNUM 

04,2144 

3 6165 

0 

EnDnUm 

CAF 

three 

04,2145 

7 0640 

1 

MASK 

DECBRNcH 

04,2146 

10  000 

0 

CCS 

A 

04,2147 

0 2152 

0 

TC 

DECEND 

04,2150 

4 0537 

1 

ENDALL 

CS 

DSPCOUNT 

04,2151 

0 2174 

1 

TC 

MORNuM  +1 

04,2152 

0 7062 

1 

deceNd 

TC 

DMP 

04  2153 

02203 

1 

adres 

decon 

04,2154 

3 6165 

0 

CAF 

Three 

04,2155 

7 0^40 

1 

MASK 

DECBRNCH 

04,2156 

50  000 

1 

INDEX 

A 

04,2157 

0 2157 

0 

TC 

♦ 0 

04,2160 

0 2164 

0 

Tc 

♦decsgn 

04,2161 

0 0006 

1 

EXTEND 

04,2162 

4 0142 

1 

DCS 

MPAC  +1 

04,2163 

52  142 

1 

dxch 

MPAC  +1 

04,2164 

56  142 

0 

+DECSGN 

XCH 

MpAC  +2 

04,2165 

50  123 

1 

INdeX 

INReL 

04  2166 

54  644 

0 

TS 

XREGLP  -2 

04,2167 

56  141 

0 

XCH 

MPAC  ♦! 

04*2170 

5O  123 

1 

INDEX 

INREL 

04,2171 

54  641 

0 

TS 

VErBrEG 

04,2172 

0 2150 

1 

Tc 

ENdALL 

04,2173 

10  637 

1 

MORNUM 

CCS 

DSPCOUNT 

04,2174 

54  637 

1 

TS 

DSpCoDnT 

04,2175 

0 4205 

1 

Tc 

eNdOF JOB 

04,2176 

00022 

1 

CrITCqN 

OCT 

22 

04,2177 

00020 

0 

OcT 

20 

q4, 22(30 

0001^ 

1 

OCT 

l2 

SUM  X 2EXP-14  IN  MPAC 


10  X 2EXP-14 

lOsuM  X 2EXP-28  IN  MPAC*  MPAC+1 


NO  OF 

OF  MUST  BE  5TH  ChAR 


-0,  dSPCOUNT  s CRiTCON 
- * DSPCOUNT  G/  CRITCON 


BLOCK  NUMin  By  PLACING  DSPCOUNT 
NEGATIVELY 

MULT  SUM  X 2EXP-28  IN  MPAC*  MpAc+l  BY 
2ExPlA/10ExP5.  GIVES (SUM/10ExP5)x2ExP-U 
IN  MPAC*  ♦!*  +2, 


- CASE 


DECREMENT  DSPCOUNT 


(DEC  18) 

(dec 

(DEC  10* 


275690  YUl  SYSTEM  FoR  0LK2!  REVISIqn  0 oF  pRoGRAM  RETRED4A  BY  nASA  2021100 


jUl  9t  1965 


!mAIn»  pAGE  143 


PIN0ALL  GAME  ByiTONs  AND  LlQHjS 


USER'S  °wN  PAGE  NO,  9 


0303 

04,2201 

00005 

1 

0304 

04,2202 

ooooo 

1 

030; 

04,2203 

05174 

0 

^0305 

04,2204 

13261 

0 

OcT 

5 

OCT 

0 

DECqN 

2DEC 

E-5  B14 

2EXpl4/lOEXp5  8 ,16384  DEC 

R0306  GEtINREL  GETS  PROPER  DATA  REG  REL  ADDRESS  FOR  CyRRENT  C.DsPCOuNT)  AND 
R0307  PUTS  IN  INTO  INREL,  *0  VERBREG,  1 NOUNREG,  2 XREG,  3 YREG,  4 ZREG, 


0308 

04  2205 

50  637 

0 

GETINREL 

INDEX 

DSPCOUNT 

0309 

04,2206 

3 2211 

1 

CAF 

INRELTAB 

0310 

04,2207 

54  123 

0 

T5 

INREL 

(A  temp,  REG) 

0311 

04,2210 

0 0002 

0 

tc 

0 

0312 

04,2211 

00004 

0 

inreltab 

OcT 

4 

R3d5  «dSPcOUNT 

s 0) 

0313 

04,2212 

00004 

0 

OCT 

4 

R3D4 

*11) 

0314 

04,2213 

00004 

0 

OCT 

4 

R3D3 

8(2) 

0318 

0,»,22l4 

00004 

0 

OCT 

4 

R3D2 

8(3) 

0316 

04,2215 

00004 

0 

OCT 

4 

r3D1 

8(4) 

0317 

04,2216 

00003 

1 

OcT 

3 

R2o5 

8(5) 

03i8 

04,22i7 

ooooS 

1 

OCT 

3 

R2D4 

8(6) 

0319 

04,2220 

00003 

1 

OCT 

3 

R2D3 

8(7) 

0320 

04,2221 

00003 

1 

OCT 

3 

R2D2 

b(8D) 

0321 

04,2222 

00003 

1 

OCT 

3 

r201 

8(9D) 

0322 

04,2223 

00002 

0 

OcT 

2 

R1d5 

8(10d) 

q323 

q4,2224 

00002 

0 

OCT 

2 

RlD4 

s(llD) 

0324 

04,2225 

00002 

0 

OCT 

2 

R103 

a(12D) 

0325 

04,2226 

OO0O2 

0 

OCT 

2 

R1D2 

8(13D) 

0326 

04,2227 

00002 

0 

OCT 

2 

RlDl 

s(14D) 

0327 

04,2231 

LOc 

4l 

NO  nSPcOUNT  NuMbeR  » ISD 

0328 

04,2231 

00001 

0 

OCT 

1 

ND2 

8 ( l6D) 

0329 

04,2232 

00001 

0 

OCT 

1 

NDl 

s(17D) 

0330 

04,2233 

OOOOO 

1 

OcT 

0 

Vd2 

s(18d) 

033j 

q4,2234 

OOOOO 

1 

OCT 

0 

VDi 

=(l9D) 

O332 

04,2235 

3 T653 

0 

VERB 

CAF 

zero 

0333 

04,2236 

54  641 

0 

T5 

VERBREG 

0334 

04,2237 

3 45O6 

0 

CAF 

VDI 

0335 

04,2240 

54  637 

1 

NVCOM 

TS 

DsPCOuNt 

0336 

04,2241 

0 2517 

0 

Tc 

zblank 

0337 

04,2242 

3 7653 

0 

CAF 

ZERO 

0338 

04,2243 

54  640 

1 

TS 

DECBrNCH 

0339 

04,2244 

54  653 

0 

TS 

RcQReT 

SpT  FOR  fNTPaSO 

0340 

04,2245 

3 4417 

1 

CAF 

ENDINst 

IF  DsPALARm  occurs  BEFORE  FIRST  ENjPAsO 

0341 

04,2246 

54  122 

1 

TS 

ENTReT 

OR  NVSUB,  eNTreT  MUST  ALReADY  Be  SeT 

A0342 

TO  TC  ENDOFJOB 

0343 

04,2247 

0 4205 

1 

TC 

EnDOFJOB 

Z75690 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

03/0 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0305 

0386 

0387 


YUl  system  for  BlK2I  revision  0 Op  program  RETRED44  BY  NASA  2021100 


jUl  9*  1965  (mAIN) 


PAGE  1A4 


pInball  game  buttons  And  lights 


04.2250 

3 7653 

0 NOUN 

CAF 

ZERO 

04,2251 

54  642 

0 

TS 

NOUNREG 

04,2252 

3 4507 

1 

CAF 

NDl 

04,2253 

0 2240 

0 

TC 

NVCOM 

04,2254 

0 2326 

1 

NEGSGN 

Tc 

SIGNTEST 

04,2255 

0 2313 

1 

TC 

-ON 

04,2256 

3 7645 

1 

CAF 

TWO 

04,2257 

50  123 

1 

BOTHSGN 

INDEX 

INREL 

04,2260 

6 7640 

1 

AD 

BIT7 

04,2261 

26  640 

1 

ADS 

DECBRNCH 

04,2262 

10  655 

0 

FIXCLPAS 

CCS 

clpass 

04,2263 

3 7653 

0 

CAF 

ZERO 

04,2264 

54  655 

0 

TS 

CLPASS 

04,2265 

0 2266 

1 

TC 

♦ 1 

04,2266 

0 4205 

1 

TC 

endofjob 

04,2267 

0 2326 

1 

POSGN 

Tc 

SIGNTEST 

04,2270 

0 2273 

0 

TC 

♦ ON 

04,2271 

3 7646 

1 

CAF 

ONE 

04,2272 

0 2257 

0 

TC 

BOTHSGN 

04,2273 

22  002 

0 

♦ON 

LXCH 

Q 

04,2274 

0 2205 

1 

TC 

GETiNREL 

04,2275 

5O  123 

1 

INDEX 

INREL 

04,2276 

3 2321 

0 

CAF 

SGNTAB 

04,2277 

54  107 

0 

TS 

sgnoff 

04,2300 

6 7646 

1 

AD 

ONE 

04,2301 

54  106 

1 

TS 

SGNON 

04,2302 

3 7653 

0 

sgncom 

CAF 

Zero 

04,2303 

54  no 

0 

TS 

CODE 

04,2304 

56  107 

1 

XCH 

SQNOFF 

04,2305 

0 3241 

0 

Tc 

llDSPiN 

04,2306 

3 7634 

1 

CAF 

BITll 

04,2307 

54  110 

0 

TS 

CODE 

04,2310 

56  106 

0 

XCH 

SqNON 

04,2311 

0 3241 

0 

TC 

IIDSPIN 

04,2312 

0 0001 

0 

tc 

L 

04,2313 

22  002 

0 

-ON 

lxch 

0 

04,2314 

0 2205 

1 

TC 

GETINREL 

04,2315 

50  123 

1 

Index 

InREl 

04,2316 

3 2321 

0 

CAF 

SGNTAB 

04,2317 

54  106 

1 

TS 

SGNON 

04,2320 

6 7646 

1 

AD 

ONE 

04,2321 

54  IO7 

0 

TS 

sgnoff 

04,2322 

0 2302 

1 

TC 

SGNCOM 

04,2323 

00005 

1 

scntab 

OcT 

5 

User's  own  page  no.  lo 

NDl.  OCT  21  (DEC  17) 


SET  dec  comp  bit  TO  1 (IN  DECBRNCH) 
PIT  5 FOR  Rl,  BIT  A FOR  R2. 

Sit  3 FOR  R3, 

IF  CLPASS  IS  ♦ OR  .0.  MAKE  IT  ♦0, 


-Rl 


275690 

YUL  SYSTEM  FOR  BLK2!  REVISION  o OF  PROGRAM 

pinball  game  buttons  and  lights 

RETREDAA  By 

NASA  2q21I.oo 

JUL  9, 
USERtS  OWN  PAGE 

1965  (MAIN)  PAGE  165 

No.  11 

0388 

0tt,Z32tt  00003  1 

OCT 

3 

.R2 

0389 

0A«2325  00000  1 

OCT 

0 

-R3 

0390 

09,2326 

22  002 

0 

SIQNTcST  LXCH 

0 

ALLOWS  ♦»-  ONLY  WHeN 

OSPcOUNTsRlol. 

0391 

09,2327 

9 

9996 

0 

CS 

RlDl 

R2D1,  OR  R3D1, 

0392 

09,2330 

0 

2336 

0 

TC 

SqNTSTI 

03,3 

09,2331 

9 

6995 

1 

CS 

R201 

0396 

09,2332 

0 

2336 

0 

TC 

sgntsti 

0395 

09,2333 

9 

9996 

1 

CS 

R3Dl 

0396 

09,2339 

0 

2336 

0 

TC 

SGNTSTI 

0397 

09,2335 

0 

9205 

1 

tc 

ENDOFJOB 

NO  MAjCH  FOUND,  SIGN 

illegal 

0398 

09,2336 

6 

0637 

0 

SQNTSTl  AD 

OSPCOUNT 

0399 

09,2337 

0 

0006 

1 

EXTEND 

0900 

09,2390 

1 

2392 

1 

BZF 

♦ 2 

match  found 

0901 

09,2391 

0 

0002 

0 

TC 

Q 

0902 

09,2392 

0 

oool 

0 

TC 

L 

SIGN  legal 

R0903 

ERROR  LIGHT  REsEt  (RSET)  TURNS  OFF, 

R0909 

UPLINK  activity*  ^UTOi  HOLD, 

FREE,  NC 

1 Att.  operator  error,  temp,  GiMbAl 

R0905 

LOCK,  PROG  ALM,  TRACKER. 

RO9O5I 

IT  also  zeroes  the  5TEST  ALARM!  OUT  BIT, 

WHICH 

TURNS  OFF 

■ STBY, RESTART. 

p09052 

IT  Also  forces  bit  iz  of  all 

DSpTAB  entries  To 

1. 

090j, 

09,2393 

56  101 

1 

ERROR 

XCH 

21/22REG 

restore  Original  C(dsplock).  thus  error 

0907 

09,2399 

59  652 

1 

TS 

DsPLOCK 

light  REsEt  leaves  DsPLOCK  UNCHANGED. 

0908 

09,2365 

3 7630 

0 

caf 

BIT15 

TURNS  OFF  AUTO,  hOLD,  FREE.  NO  ATT, 

0909 

06  2366 

59  675 

1 

TS 

DSPTAB  .IID 

GIMBAL  LOCK,  TRACKER,  PROG  ALM. 

0910 

09,2397 

9 7635 

1 

CS 

BITIO 

TURN  OFF  ITEST  ALARM!  OUTBiT. 

0911 

09,2350 

0 0006 

1 

EXTEND 

0912 

09,2351 

03  013 

0 

wand 

CHAN13 

0913 

09,2352 

9 2905 

0 

CS 

ERCON 

TURNS  OFF  uplink  ACTIVITY.  TEMP, 

O9I9 

09.2353 

0 0006 

1 

EXTEND 

OPERATOR  ERROR, 

0915 

09,2359 

03  Oil 

1 

WAND 

DsALMOUT 

0916 

09,2355 

3 9511 

0 

TSTAB 

CAp 

BjNcON 

(DEC  10) 

06,7 

06,2356 

56  io3 

1 

TS 

ERCNT 

ERCNT  a COUNT 

0918 

06,2357 

0 0006 

0 

INHINT 

09lq 

09,2360 

50  103 

0 

INDEX 

ERCNT 

0920 

09,2361 

10  662 

1 

CCS 

OsPjAB 

0921 

09,2362 

6 7666 

1 

AD 

ONE 

0922 

09,2363 

0 237O 

1 

TC 

ERPLUS 

0923 

06,2369 

6 7666 

1 

AD 

ONE 

0929 

09,2365 

6 0000 

0 

ERMiNUS 

CS 

A 

0925 

09.2366 

7 29O6 

0 

MASK 

N0TBIT12 

0926 

09,2367 

0 2373 

1 

tc 

ErCOM 

0927 

09,2370 

4 OOOO 

0 

ERPLUS 

CS 

A 

0928 

09,2371 

7 2406 

0 

MASK 

N0TBIT12 

275690 


0«29 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0442 

0443 
A04431 
A04432 

0*^46 


RqA48 

R0449 

R0450 

R0451 

R0452 

R0453 

R0454 

R0455 

0456 

0457 

0458 

0459 
04*0 
0461 
04*2 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 


YUl  sYsTEM  for  BLK21  REVISION  0 OF  PROGRAM  RETRED44  BY  NAsA  2021100 
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pinball  game  Buttons  and  lights 


USER'S  Own  page  no.  12 


04.2372 

4 0000 

0 

CS 

A 

04,2373 

50  103 

0 

ERCOM 

INDEX 

ercnt 

04,2374 

54  662 

1 

TS 

OSPTAB 

04.2375 

0 0003 

1 

RELINT 

04,2376 

10  103 

1 

CCS 

ERCNT 

04,2377 

0 2356 

0 

TC 

tstab 

04,2400 

3 7653 

0 

CAF 

Zero 

04,2401 

54  721 

1 

TS 

failreg 

O‘t.2402 

55*021 

1 

TS 

OLDERR 

04. 2403 

55*044 

1 

TS 

sfail 

04,2404 

0 4206 

1 

TC 

endofjob 

O4.24O5 

0 

0 

0 

ERCON 

OCT 

00114 

0A,24q6 

73777 

1 

N0TBIT12 

OCT 

73777 

might  want  to  reset  CLPASS.  DECBRNCh. 
ETC, 


chan  11  bit  3.4.7, 

UPLiNK  activity,  temp,  operator 
error. 


clear  blanks  which  ri.  rz,  R3  IS  Current  or  last  to  be  displayeD(Pertinf 

fjT  XREG.YREG.ZREG  IS  ClEARED).  SUCCESSIVE  CLEARS  TAKE  CARE  qF  EACH  RX 
L/  RC  UNTIL  Rl  IS  DONE,  THEN  NO  FURTHER  ACTION 


THE  single  Component  luAD  verbs  allqw  only  the  single  rc  that  is 
appropriate  TO  be  cleared. 


CLpASS  +0  pASSO.  CAn  BE  BACKED  Up 

♦Nz  hipAss.  can  be  backed  up 
-NZ  PA5SO,  cannot  be  backed  up 


O4.24O7 

10  637 

1 

CLEAR 

CCS 

DSPCOUNT 

04,2410 

6 7646 

1 

ad 

ONE 

04.2411 

0 2413 

0 

TC 

*2 

04.2412 

6 7646 

1 

Ad 

ONe 

O4.24I3 

54  637 

1 

TS 

DSPCOUNT 

04,2414 

0 2205 

1 

tC 

GEtINREL 

04,2415 

10  655 

0 

CCS 

CLPASS 

O4.24I6 

0 2424 

1 

TC 

CLPASHI 

04,2417 

0 2421 

1 

tC 

+ 2 

04,2420 

0 2421 

1 

h 

,1 

04*2421 

3 0123 

1 

CA 

INREL 

04.2422 

0 2446 

0 

TC 

LEGAlTST 

04,2423 

0 2441 

1 

Tc 

CLeARI 

O4 . 2424 

10  123 

0 

CLPASHI 

CCS 

INREL 

04,2425 

54  123 

0 

TS 

INREL 

04,2426 

0 2446 

0 

Tc 

Legalist 

04,2427 

3 2515 

1 

CAF 

DOuBlK  +2 

04.2430 

26  653 

0 

adS 

ReQReT 

04.2431 

3 0123 

1 

CA 

INREL 

04,2432 

54  111 

1 

TS 

MlXjEMP 

MAG  OF  DSPCOUNT 

Must  sEt  inrel.  even  for  hipass 


♦0  IF  clpass  Is  ,0  OR  -.  It  Is  pass° 


+3  to  - Number,  backs  daja  requests, 
jEMp  stO>^*®^  for  INrEL 


275690 
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plN^ALL  GAmE  BUTTqnS  A(\|D  LIGHTS  USEr'S  qWn  pAGE  no»  13 


OA76 

04i2433 

0 0006 

1 

EXTEND 

OA77 

04,2434 

26  641 

0 

Dim 

VERBrEG 

decrement  vER®  ^ND  RE-D1sPLAY 

0478 

04,2435 

0 4063 

0 

TC 

BANKcALL 

0479 

04,2436 

12315 

0 

CADR 

UPDATVB 

0480 

04,2437 

3 0111 

0 

CA 

MIXTEMP 

0481 

04,2440 

54  123 

0 

TS 

INReL 

Restore  inreL 

0482 

04,2441 

0 2444 

1 

CLEARl 

TC 

CLR5 

0483 

04;2442 

24  655 

1 

INCR 

CLPASS 

ONLY  IF  CLPASS  IS  ♦ OR  +0, 

O484 

04,2443 

0 4205 

1 

TC 

endofjob 

set  for  higher  PASS, 

0485 

04,2444 

22  002 

0 

CLr5 

lxch 

Q 

USES  5BlAnK  but  AVqIDS  ITS  TC  GETINrEL 

0486 

04,2445 

0 2456 

1 

Tc 

5bLANK  *2 

0487 

04,2446 

6 "^656 

0 

LEQALTST 

AO 

NEG2 

0488 

04,2447 

10  000 

0 

CCS 

A 

0489 

04,2450 

0 0002 

0 

Tc 

0 

LeGaL  INRfL  G/  2 

0490 

04,2452 

LOC 

♦ 1 

0491 

04,2452 

0 4205 

1 

TC 

ENDOpJOB 

illegal  iNRELb  0,1 

0a92 

04*2453 

0 0002 

0 

TC 

Q 

LEGAL  INREL  = 2 

ROA94  50LANK  BLANKS  5 CHAR  DISPLAY  WORD  IN  Rl,  R2,  OR  R3.  IT  ALSO  ZEROES  XrEG. 
R0A95  YREG*  or  ZREG. place  ANY  ♦ DsPCOyNj  NyMBER  POR  PERtINENj  RC  INjO  DsPCOyNx 
R0A96  DSpCOUNT  jS  LEpT  SeT  TO  LEFT  MOST  DSP  NUMB  pOR  RC  JUST  BLANKeD, 


0497 

04,2454 

22  002 

0 

5BLANK 

LXCH 

Q 

0498 

04,2455 

0 2205 

1 

TC 

GETINREL 

0499 

04,2456 

3 7653 

0 

CAF 

ZERO 

0500 

04,2457 

50  123 

1 

INDEX 

inrel 

0501 

04,2460 

54  641 

0 

TS 

VeRBREG 

Zero  x*  y,  z reg* 

O^gZ 

0A,2461 

5g  123 

1 

INDEX 

inrel 

0503 

04,2462 

54  644 

0 

TS 

XREGlP  -2 

O5O4 

04*2463 

54  110 

0 

TS 

CODE 

0505 

04,2464 

50  123 

1 

INDEX 

INREL 

ZERO  pertinent  DEC  COMP  Bit, 

0506 

04,2465 

4 7640 

0 

C5 

BiT7 

protect  others 

O5O7 

04,2466 

7 0640 

1 

MASK 

DECBRNCH 

0508 

04,2467 

7 2516 

0 

MAsK 

BrNCHCON 

zero  low  2 bits* 

0509 

04,2470 

54  640 

1 

TS 

DECBRNCh 

O5IO 

04*2471 

5O  123 

1 

INDEX 

inrel 

0511 

04,2472 

3 25O6 

0 

CAF 

SINBlANK  -2 

blank  isolated  char  separately 

0512 

04,2473 

54  127 

1 

TS 

COUNT 

0513 

04,2474 

0 3157 

1 

TC 

DSPIN 

0514 

04,2475 

50  123 

1 

5BLANK1 

index 

inrel 

0515 

04,2476 

3 2511 

0 

CAP 

DOUBLK  -2 

05l6 

O4 ,24T7 

54  637 

1 

TS 

DSPCOUNT 

0517 

04,2500 

0 2517 

0 

TC 

2BlAnK 

0518 

04,2501 

4 7646 

0 

C® 

TWO 

O5I9 

04*2502 

26  637 

1 

ADS 

DSPCOUNT 

0520 

04,2503 

0 2517 

0 

TC 

2BLANK 

0521 

04,2504 

50  123 

1 

index 

INREL 

0522 

04*25°5 

3 4442 

1 

CAF 

RlDl  -2 
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pinball  game  buttons  And  lights  user's  own  page  no.  1A 


0523 

04,2506 

54  637  1 

TS 

DSPCOUNT 

Set  dspcount  to  left  most  dsp  number 

052a 

04,2507 

0 0001  0 

TC 

L 

OF  REG.  JUST  blanked 

0525 

04,2510 

00016  0 

SInBlAnK 

oCT 

16 

DEC  14 

0526 

04,2511 

00005  1 

OCT 

5 

0527 

04,2Si2 

00004  0 

OCT 

4 

0528 

04,2513 

00015  0 

DOuBLK 

OCT 

15 

dec  13 

0529 

04,2514 

00011  1 

OCT 

11 

DEC  9 

0530 

04,2515 

00003  1 

OCT 

3 

0531 

04,2516 

77774  0 

brnchcon 

OCT 

77774 

R0532 

zBlank  blanks  two  char,  place 

DSP  number 

1 OF  LEFT 

ChAr  ( 

3F  the  pair 

INTO 

R0533 

DSPCOyNT,  yHIS  NuMBER  Is  LEFt 

IN  DsPCOuNj 

053A 

04,2617 

3 0637  0 

2BLANK 

CA 

dspcount 

0535 

04,2520 

54  Ozl  0 

TS 

SR 

0536 

04,2521 

4 2532  0 

CS 

BLANKCON 

0537 

04,2522 

0 0004  0 

INHInT 

0538 

04,2523 

50  021  1 

index 

SR 

0539 

04,2524 

56  662  0 

XCH 

DSPTAB 

0540 

04,2525 

0 0006  1 

extend 

0541 

04,2526 

6 2530  0 

BZMF 

♦ 2 

IF  OLD  CONTENTS  NOUT  OK 

0542 

04,2527 

24  656  1 

INCR 

NOUt 

IF  old  Contents  ♦»  +i  to  nout 

0543 

04,2530 

0 0003  1 

relint 

IF  -.NOUT  OK 

0544 

04,2531 

0 0002  0 

TC 

0 

0545 

04,2532 

04QO0  0 

BLANKCON 

OCT 

4000 

275690  YUL  SYSTEM  FOR  BLK2:  REVISION  0 OF  PROGRAM  REtRED^j,  By  NASA  2021100 


JUL  9*  I965 


(MAIN)  PAGE  14, 


PjNBALL  qAMe  buttons  AND  LjGhTS  USgR'S  OWN  PAgE  NO.  15 

P0546  ENtEr  pass  0 Is  jHE  EXECnjE  FyNCTloN,  HIGHER  ORDER  ENtErs  Are  tO  LOAD 

R0547  data.  The  SjgN  Of  reqret  determines  The  pass,  ♦ for  pAss  o*-  for  hiQhER 
Ro548  passes. 


RO549  MACHINE  CADR  tO  BE  SPECIFIED  (MCtBs)  NOUNS  DESIRE  AN  ECaDr  TO  BE  LOADED 
r0550  when  used  WITH  LoAD  VErBS,  MONITOR  VErBS,  qr  DiSpLAY  VErBS  (EXCEpT 

R0551  Verb  b fixed  MeMory  uIsplay,  WHICH  Requires  an  FcAdR)* 


0552 

05.2000 

SeTLOC 

22000 

0553 

05,2000 

0 3344  1 

NvSIJBB 

TC 

NvSUBI 

standard  lead  ins,  dont  move. 

0554 

05.2001 

1 3403  1 

dspmm 

tcf 

DSPMMI 

0555 

A0556 

Os.2002 

0 2663  0 

LOAdLVI 

TC 

loadlv 

END  of  standard  LEAD  INS, 

0557 

05.20o3 

3 7653 

0 

ENTER 

CAF 

zero 

0558 

05.2004 

54  655 

0 

TS 

ClPASS 

0559 

05.2005 

3 4417 

1 

CAF 

endinst 

0560 

05.2006 

54  122 

1 

TS 

ENtREt 

0561 

05.2007 

10  653 

0 

CCS 

REQRET 

0562 

05.2010 

0 2031 

1 

TC 

ENTPASO 

IF  +*  PASS  0 

0563 

05.2011 

0 2031 

1 

tc 

EntPAsO 

IF  PASS  0 

0564 

05.2012 

0 2013 

1 

TC 

♦ 1 

IF  -*  not  pass  0 

0565 

05.2013 

3 6165 

0 

CAF 

three 

IF  DEC.  alarm  if  less  THAN  5 CHAR  IN. 

0566 

05.2014 

7 0640 

1 

mask 

DECBRnCh 

BUT  leave  reqret  - And  flash  on*  So 

0567 

05.2015 

10  000 

0 

CCS 

A 

OPERATOR  CAN  SUPPLY  MISSING  NUMERICAL 

0568 

05.2016 

0 2020 

1 

TC 

♦2 

characters  and  continue. 

0569 

05.2017 

0 2024 

0 

TC 

acceptwd 

OCTAL,  any  number  OF  ChAR  OK, 

0570 

05.2020 

10  637 

1 

CCS 

DSPCOUNT 

0571 

05.2021 

0 2324 

0 

TC 

QoDSpALM 

LESS  than  5 char  DEC(DSpCoUNT  IS  ♦) 

0572 

05.2022 

0 2324 

0 

Tc 

GOdSPALM 

Less  than  5 char  dec<dspcount  is  +) 

0573 

05.2023 

0 2024 

0 

TC 

♦ 1 

5 char  in  (DsPCOuNT  is  -) 

0574 

05.2024 

4 0653 

0 

acceptwd 

CS 

ReQRET 

5 ChAr  in  (DSPCOUNT  iS  -) 

0575 

05.2025 

54  653 

0 

TS 

REQRET 

SET  reqret  +, 

0576 

05.2026 

0 4547 

0 

TC 

FlASHqFF 

0577 

05.2027 

0 0653 

1 

Tc 

ReQReT 

0578 

0122 

ENTEXIT 

s 

ENTRET 

0579 

05.2030 

00030 

1 

LOWVERB 

OCT 

30 

lower  verb  That  avoids  noun  test 

0580 

05  2031 

3 7653 

0 

ENtPAsO 

CAF 

ZERO 

NOuN  verb  SuB  enters  here 

0581 

05.2032 

54  640 

1 

TS 

DECBRNCH 

0582 

05.2033 

4 0641 

0 

TE5TVB 

CS 

VERBREG 

IF  verb  is  30-77.  SKIP  NOUN  TEST 

275690  yUL  system  FOR  BLKZI  REVISION  0 OF  PROGRAM  RETREDAA  By  NASA  2021100 


pinball  game  buttons  and  Lights 


0583 

05.2039 

6 2030 

0 

AD 

lowverb 

0589 

05.2035 

0 0006 

1 

extend 

0585 

05.2036 

6 2116 

0 

B2MF 

VERBFAN 

0586 

05.2037 

0 0006 

1 

TESTNN  extend 

0587 

05.2090 

3 2076 

1 

DCA 

LODNNLOC 

0588 

05.2091 

52  006 

0 

DXCH 

z 

0589 

05.2092 

50  129 

0 

INDEX 

mixbr 

0590 

05.2093 

0 2093 

1 

TC 

+ 0 

0591 

05.2099 

0 2096 

1 

TC 

♦ 2 

0592 

O5.2O95 

0 2I76 

0 

TC 

MIXNOUN 

0593 

05.2096 

10  132 

0 

CCS 

nnadtem 

0599 

05.2097 

0 2119 

1 

TC 

VeRBFAN  . 

2 

0595 

05.2050 

0 2329 

0 

TC 

GODSPALM 

0596 

05.2051 

0 2055 

0 

TC 

REQADD 

0597 

05.2052 

29  69T 

0 

I NCR 

NOUNCADR 

0598 

05.2053 

0 9936 

1 

TC 

SETnADD 

0599 

09.2059 

0 2102 

0 

TC 

INTMCTBS 

+ 

0600 

05.2055 

3 7630 

0 

REQADD  CAF 

BlilS 

0601 

09,2056 

59  655 

0 

TS 

CLPASS 

0602 

O5.ZO57 

9 9917 

0 

CS 

endinst 

0603 

05.2060 

6 0122 

0 

AD 

ENtEXIt 

0609 

05.2061 

0 0006 

1 

extend 

0605 

05.2062 

1 2069 

0 

BZF 

*2 

0606 

05.2063 

0 2100 

1 

TC 

intmctbs 

0607 

09.2069 

0 2256 

1 

TC 

reqoatz 

0608 

05.2065 

10  690 

1 

CCS 

DECBRNCH 

0609 

05.2066 

0 2329 

0 

TC 

GODSpALM 

0610 

05,2067 

56  695 

0 

XCH 

zreQ 

0611 

05,2070 

0 9930 

1 

TC 

setncadr 

0612 

05,2071 

0 0006 

1 

extend 

0613 

O5.2O72 

3 2O76 

1 

DCA 

LODNNLOC 

0619 

05,2073 

52  006 

0 

DXCH 

z 

0615 

05.2079 

0 2116 

0 

TC 

VeRBfAN 

0616 

El 

EBANK* 

DSPCOUNT 

0617 

05,2075 

02000 

0 

LOdNNLOC  2CAdR 

lodnntab 

CO6I7 

O5.2O76 

UOOl 

0 

06171 

05,2077 

77772 

0 

NEG5  OCt 

77772 

0618 

05,2100 

3 0192 

0 

INTMcTbS  cA 

mpac 

0619 

05,2101 

0 9930 

1 

tc 

SEtNCADR 

0620 

05,2102 

9 7693 

0 

CS 

BiT9 

06201 

05,2103 

7 059! 

0 

MASK 

verbreg 

06202 

05,2109 

6 2077 

0 

AD 

NEG5 

06203 

05,2105 

0 0006 

1 

EXTeNd 

06209 

05,2106 

1 2116 

1 

BZF 

VERBFAN 

06205 

05.2107 

3 9996 

0 

CAF 

r3D1 

0621 

05.2110 

59  637 

1 

TS 

dSPcOUNT 

0622 

05.2111 

3 0657 

0 

CA 

NOUNCADR 

0623 

05.2112 

0 3222 

0 

TC 

OsPOCfWD 
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USER'S  Own  page  no#  16 
30.VB 

verb  Q/E  30 
VERB  L/  30 

SWITCH  banks  to  NOUN  TABLE  READING 
ROUTINE. 


NORMAL 

MIXED 

normal 

NORMAL  IF  ♦ 

NOT  IN  USE  IF  +0 

SPECIFY  MACHINE  CADR  IF  - 

AUGMENT  machine  CADR  IF  -0 

ECADR  FROM  NoUnCADR,  SETS  EB,  NoUn*DD, 

sEt  clpass  eor  passo  only 

TEST  IF  reached  HERE  FROM  INTERNAL  OR 

from  external 

external  MACH  CADR  TO  BE  SPECIFIED 

external  MACh  CADR  TO  BE  SPECIFIED 

alArm  if  decimal  used  for  MCtBS 

octal  used  ok 

ECADR  into  NOuNCADR,  SET  EB*  NOuNADD. 

SWITCH  banks  to  NOUN  TABLE  READING 
routine. 


internal  MacH  cAdR  to  bE  SPEcIFIEq. 
ECADR  into  NOuNCADR.  SET  EB.  NOuNADD. 

NvsuB  call  Left  cadr  in  mpac+z  f°R  mach 
CADr  to  be  specified. 

MA5KING  MAKES  VB15  look  LIKE  VB05. 

VB  s 05  OR  I5,  DO  NOT  DISPLAY  CADR. 

VB  not  » 05  OR  15.  display  CADr. 


275690 

0624 

0625 

0626 

0627 

062s 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0669 

0665 

0666 

g667 

0668 

0669 

A0670 

0671 

0672 

0673 
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InSALL  GAmE  BUTTqnS  AnD  LIG)HTS 

05 

.2113 

0 2116 

0 

TC 

VERBFAN 

05 

2114 

6 7646 

1 

AD 

one 

05 

2115 

0 4430 

1 

TC 

setncadr 

05 

2116 

4 2131 

1 

VERBFAN  C5 

LST2C0N 

05 

2U7 

6 0641 

1 

AD 

verbreg 

05 

2120 

10  000 

0 

CCS 

A 

05 

2121 

6 7646 

1 

Ad 

ONe 

05 

2122 

0 2124 

1 

TC 

05 

2123 

0 2133 

1 

TC 

VBFANDIR 

O5 

2124 

54  I4O 

0 

TS 

MPAC 

05 

2125 

0 4610 

1 

tc 

RELDsP 

05 

2126 

56  140 

1 

XCh 

MPAC 

O5 

2127 

6 2132 

0 

AD 

LST2CADR 

05 

2130 

0 4105 

1 

TC 

BANKJuMP 

05 

2131 

00040 

0 

LST2C0N  OCT 

40 

O5 

2132 

11255 

0 

LST2CADR  CADR 

DSPALARM 

05 

2133 

50  64l 

1 

vbfandiR  index 

verbreg 

O5 

2134 

3 2136 

1 

CAF 

verbtab 

05 

2135 

0 4105 

1 

TC 

BANKJgMP 

05 

2136 

12324 

1 

VERbTab  CAdR 

GOdSPALM 

05 

2137 

12346 

0 

CADR 

DSPA 

05 

2140 

12345 

0 

CADR 

dspb 

O5 

2141 

12352 

0 

CADR 

DSPC 

05 

2142 

12333 

1 

CADr 

dspab 

05 

2143 

12326 

0 

CAdR 

dSPABC 

05 

2144 

12445 

1 

CADR 

DECDSP 

05 

2145 

10662 

1 

CADR 

dspdpdec 

O5 

2146 

11255 

0 

CADR 

DSPALARM 

05 

2147 

13077 

0 

CADR 

monitor 

05 

2150 

13077 

0 

CAdR 

monitor 

05 

2151 

13077 

0 

CADR 

monitor 

05 

2152 

13077 

0 

CADR 

monitor 

O5 

2153 

I3O77 

0 

CADR 

monitor 

05 

2154 

13077 

0 

CADr 

Monitor 

05 

2155 

1307? 

0 

CAdR 

MONITOR 

05 

2156 

12324 

1 

CADR 

GODSPALM 

03 

2157 

12620 

0 

CADR 

ALOAD 

O5 

2160 

12631 

0 

CADR 

BlOAO 

05 

2161 

12646 

0 

CADR 

CLOAD 

05 

2162 

12572 

1 

CAdR 

AbLOAd 

05 

2,63 

,2535 

1 

CADR 

ABCLOAD 

05 

O5 

2164 

2165 

12324 

13214 

t 

1 

CADR 

CADR 

QODSPAjm 

dspfmem 

05 

2166 

13314 

0 

ReQe’^COc  CAdR 

VBRC3eXeC 

05 

2167 

13340 

1 

CADR 

VBRQwAIT 

05 

2170 

11303 

1 

CADR 

bump 

USEr'S  oWn  pAGE  nq,  17 


ecadr  into  nouncadr,  sets  eb,  nounadd. 

VERB-LSt2CON 

Verb  g/  lstecon 
verb  U LST2CQN 
RELEASE  display  sYsj 

ALSO  TURN  OFF  RELEASE  DISPLAY  SyST  LjghT 


first  LST2  VERB 
9»FIX  later** 


vboo  illegal 

VBOl  display  OCT  COMP  1 (Rl) 

VB02  DISPLAY  OCT  COMP  2 (Rl) 

VB03  display  OCT  COMP  3 (Rl) 

VB04  display  OCT  COMP  1.2  (r1»r2) 

Vb05  display  OcT  c°MP  1.2,3  (Rl.R2.R3) 

vB06  decimal  display 

VBOT  dp  decimal  display  (R1.R2) 

VBIO  spare 

VBll  MONIyOR  OCj  COMP  1 (Rl) 

Vb12  monitor  OcT  cOMP  2 (Rl) 

VB13  monitor  OCT  COMP  3 (Rl) 

VB14  MONITOR  OCT  COMP  1,2  (R1.R2) 

VBls  MONITOR  OCT  COMP  1,2.3  (R1.R2.R3) 

VB16  monitor  decimal 

Vb17  monitor  dP  dec  (RI.R2) 

VB20  SPARE 

VS21  LOAD  COMP  1 (Rl) 

VB22  LOAD  COMP  2 <R2) 

VB23  LOAD  COMP  3 (r3) 

Vb29  load  cOMP  1,2  (R1.R2) 

VB25  LOAD  COMP  i,2,3  (Ri,r2,R3) 

VB26  spare 

VB27  fixed  memory  DISPLAY 

jHE  Following  vErBs  make  no  nouN  jEst 

V830  Rf(3U|5T  £XeCUTIVe 

vB31  request  waitlist 

VB32  c<RZ)  into  R3.  C<R1)  iNTO  R2 
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Pinball  game  buttons  and  Lights  user's  own  page  no,  is 


067A 

05,2171 

11266  0 

CADR 

vbproc 

VB33 

proceed  without  data 

0675 

05,2172 

11273  1 

CADR 

vbterm 

VB34 

terminate  current  test  or  load  ReO 

0676 

05. 2173 

13414  1 

CADR 

VBTSTLTS 

VB35 

TEST  lI(3HTS 

0677 

05,2174 

02677  0 

CADR 

SLAPI 

VB36 

fresh  start 

0678 

0?,2175 

13267  0 

ENDvBFAN  CADR 

MMChANQ 

VB37 

Change  major  mode 

R0679  THE  lIST2  VERBFAN  IS  1.0CATED  iN  THE  EXTENDED  VERB  BANk, 
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PINbaLL  OaME  buttons  aNo  tlGHTS  USER'S  OWN  P^GE  NOt  19 

p068o  nnaotab  Contains  a relative  addrEssi  ioadDrEkin  low  lo  bjts)*  referring 
RO601  TO  WHpRe  3 consecutive  AddReSSeS  ARe  STOReD  (IN  IpADoTAB). 

R0682  MIxNOUN  gets  DATA  AND  STORES  IN  MixTEMP,*l,+2.  IT  SETS  NOuNADO  FOR 
R0683  MiXTEMP, 


0685 

05,Zl76 

10  132 

0 

MIxNOUN 

CCS 

NNADTEM 

0686 

05,2177 

0 2203 

1 

TC 

+4 

♦ IN  USE 

0687 

0S«2200 

0 2324 

0 

TC 

GODSPALM 

♦0  NOT  IN  USE 

0688 

05,2201 

0 2203 

1 

tc 

♦ 2 

- IN  Use 

0689 

05,2202 

0 2203 

1 

Tc 

+ 1 

-0  IN  USg 

0690 

05  2203 

4 6162 

0 

cs 

SIX 

0691 

05,2204 

6 0641 

1 

Ad 

VERBREG 

O692 

05,2205 

0 0006 

1 

EXTEND 

0693 

05,2206 

6 2210 

0 

BZMF 

*z 

VERB  L/E  6 

0694 

05,2207 

0 2116 

0 

TC 

VERBfAN 

AVOID  MIXNOUN  SWAP  iF  VB  NOT  » DISPLAY 

0695 

05,2210 

3 7645 

1 

CAF 

TWO 

0696 

05,2211 

54  103 

1 

mixnni 

TS 

DECqUNT 

0697 

05,2212 

6 2235 

1 

Ad 

MIXAd 

0698 

05  2213 

54  131 

0 

TS 

NOUNADD 

SET  NOUNADD  to  MIxTEMp  ♦ K 

0699 

05,2214 

50  103 

0 

INDEX 

decount 

(SET  IDADDTAB  ENTRY  FOR  COMPONENT  x 

O7OO 

05*2215 

3 0134 

1 

CA 

IDADITEM 

OF  NOUN, 

0701 

05,2216 

54  106 

1 

TS 

NOuNTEf'* 

A0702 

test  for  DPIFOR  OCT  DISPLAY),  IF  SO,  qET 

AO7O3 

minor  part  only. 

0704 

05,2217 

0 2721 

1 

TC 

SFRutNIX 

get  SF  ROut  NyMBER  IN  A 

0706 

05,2220 

0 2236 

1 

TC 

dptest 

O7O7 

05,2221 

0 2223 

0 

TC 

MIXNN2 

NO  DP 

0708 

05,2222 

24  106 

0 

INCR 

NOuNtEN 

DP  GET  minor  part 

0709 

05,2223 

3 0106 

0 

MIXNN2 

CA 

NOUNTEM 

O7IO 

05,222a 

7 4503 

1 

MASK 

LOW  11 

ESUBK  (NO  DP)  OR  (ESUBK)+1  FOR  DP 

0711 

05,2225 

0 4440 

0 

jC 

SEtEBANK 

sEt  ebank,  leave  eadres  in  a. 

0712 

05,2226 

50  000 

1 

index 

A 

pick  UP  C(eSUBK)  not  dP 

0713 

05,2227 

3 0000 

1 

CA 

0 

OR  C((ESUBK)*1)  FOR  DP  MINOR  PART 

0714 

05,2230 

50  131 

1 

index 

NOUNADD 

O7I5 

05,2231 

56  000 

1 

XCH 

0 

STORE  IN  MIXTEM  ♦ K 

0716 

05,2232 

10  103 

1 

CCS 

DECOUNt 

O7I7 

05,2233 

0 2211 

1 

Tc 

MIXNNI 

0718 

05,2234 

0 2116 

0 

TC 

VERBFAN 

0719 

05,2235 

0 0111 

0 

mixad 

Tc 

MIXTeMP 

R0720  DPTEST 

enter  WiTh 

Sf  ROUT  number  iN  A, 

Ro721 

RETURNS  TO 

L+1  IF  NO  DP, 

R0722 

RETURNS  TO 

if  DP. 

0723 

05  2236  50  000  1 DPTEST 

INDEX 

A 

0724 

05,2237  1 2240  1 

TCF 

♦ 1 

07241 

05,2240  0 0002  0 

Tc 

0 

OcTaL  only  NO  dP 
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USER'S  OWN  page  NO,  20 


0725 

05,2291 

0 0002  0 

TC 

Q 

fract  no  dp 

0726 

05.2242 

0 0002  0 

TC 

a 

DEG  NO  DP 

0727 

05.2243 

0 0002  0 

TC 

Q 

ARITH  NO  DP 

0728 

05.2244 

1 2250  0 

TCF 

DPTESTl 

OPIOUT 

0729 

05.2245 

1 2250  0 

TCF 

DPTESTl 

DP20UT 

0730 

05.2246 

0 0002  0 

TC 

0 

OPDEG  NO  DP 

0731 

05.2247 

1 2250  0 

TCF 

DPTESTl 

DP30UT 

0732 

05.2250 

50  002  0 DPTESTl 

INDEX 

0 

0733 

05.2251 

0 0001  0 

TC 

1 

RETURN  TO  L*2 

0734 

05.2252 

3 4444 

1 

REQDaTX 

CaF 

RlDl 

0735 

05.2253 

1 2257 

1 

TCF 

REQCOM 

0736 

05,2254 

3 4445 

0 

REQDATY 

CAF 

R2D1 

0737 

05.2255 

1 2257 

1 

TCF 

REQCOM 

0738 

05,2256 

3 4446 

0 

REQDAtZ 

CAF 

R3D1 

0739 

05,2257 

54  637 

1 

REQCOM 

TS 

DSPCOUNT 

0740 

05.2260 

4 0002 

1 

CS 

0 

0741 

05,2261 

54  653 

0 

TS 

reqret 

0742 

05.2262 

0 4063 

0 

TC 

bankcall 

07^,3 

05.2263 

IO454 

0 

CAOR 

SBLANK 

0744 

05.2264 

0 4543 

1 

TC 

flashon 

0745 

05.2265 

4 4417 

0 

CS 

ENdINST 

0746 

05,2266 

6 0122 

0 

AD 

ENTEXIT 

0747 

05.2267 

0 0006 

1 

EXTEND 

0748 

05.2270 

1 2273 

1 

BZF 

endrqdat 

ENTEXIT  » ENDOFJOB,  EXTERNALLY  INITIATED 

0749 

05,2271 

4 7653 

1 

CS 

ZERO 

ENTEXIT  NOT  EnDOFJOB.  NVSUB  INITIATED 

0750 

05.2272 

54  676 

1 

TS 

CADRSTOR 

NVSUB  initiated  LOAD.  SET  CADRSTOR  TO  -0 

0751 

05,2273 

0 0122 

0 

endrqdat 

TC 

ENTEXIT 

R0752  Ip  NvSUB  INITIATpD  LOAd.  SgT  cAdRSTOr  TO  -0  TO  TgLL  ReCALTST  TO  ReLeASc 

R0753  display  IF  ENDIDlE  wAS  NOT  USED,  (NECESSARY  FOR  DATAwAIT) 


0755 

05,2g74 

0756 

05,2275 

O757 

05.2276 

0758 

05,2277 

0759 

05,2300 

OTfcO 

0».2301 

0761 

05.2302 

0762 

05,2303 

°763 

09,2304 

0764 

05,2305 

0765 

05.2306 

°766 

O5.23O7 

0767 

05,2310 

0768 

05,2311 

54  64j 

0 

TS 

NOUNREG 

56  002 

0 

UPOATfijN 

XCH 

Q 

54  103 

1 

TS 

UPDATRET 

0 0006 

1 

extend 

3 2076 

1 

dcA 

LODNNLOC 

52  006 

0 

DXCH 

2 

10  132 

0 

CCS 

NN^DTEm 

6 7646 

1 

Ad 

ONe 

1 2307 

0 

TCF 

PUTADD 

1 2310 

0 

tCF 

PhtADO  .1 

1 2310 

0 

tcf 

PUTAdD  +l 

0 443O 

1 

PUTADD 

TC 

setncadr 

3 4507 

1 

CAF 

NDl 

54  637 

1 

TS 

dspcount 

SWiTCh  banks  to  noun  table  READjNg 

ROUTINE. 

NORMAL 

MCjBs  OONt  change  NOuNADD 
McTBi  OONT  ChANgE  NOUNAdd 
ECADR  INTO  NOUNCADR,  SETS  EB,  NOUNADD, 
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0769 

05,2312 

3 0642 

1 

CA 

NOUNREG 

0770 

0St23i3 

1 2322 

1 

TCF 

UPOATl 

077i 

q5 |23i4 

54  6^1 

0 

TS 

VERBREG 

0772 

05,2315 

56  002 

0 

UPDATVB 

XCH 

0 

0773 

05,2316 

54  103 

1 

TS 

UPDATRET 

077A 

05,2317 

3 4506 

0 

CAF 

VDl 

0775 

05,2320 

54  637 

1 

TS 

DSPcOUNT 

0776 

05,2321 

3 O^^l 

1 

CA 

VERBREG 

0777 

05,2322 

0 3255 

0 

uPDAtI 

tc 

DsP2BlT 

0778 

05,2323 

0 0103 

0 

TC 

UPDATRET 

0779 

05,2324 

0 4102 

0 

GoDSpALM 

TC 

PqSTJUmp 

0780 

05,2325 

11255 

0 

cadR 

dspalarm 
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YUL  SYSTEM  FOR  0LK2:  REVISION  0 OF  PROQRaM  RETRED44  bY 

NaSa 

2021100 

JUL  9, 

1965 

(MaIN) 

P0781 

R0782 

Pinball  game  buttons  and  Liqhts 
NOUN  tables 

noun  code  l/  55,  Normal  case,  noun  code  g/e  55,  mixed 

NOUN 

CASE. 

USER'S  OWN  PAGE 

NO, 

22 

R0783  for  normal  CASEt  NNADTAB  CONTAINS  ONE  ECADR  FOR  EACH  NOUN. 

r078A  *0  indicates  NOUN  NOT  USED,  - ENTRY  INDICATES  MACHINE  CADr(E  OR  F)  To 

R0785  Be  specified,  -1  indicates  channel  to  Be  specified.  -0  indicates  augment 

R07851  OF  LAST  MACHINE  CADR  SUPPLIED. 


R0786  pOR  mixed  case*  NNAOTAB  CONTAINS  ONe  INdIReCT  AoDReSS ( IDAdDReL)  IN  LOW 

R0787  10  Bits,  and  the  component  code  number  in  the  HIGH  5 bits. 

R0T88  NNtYPTAB  is  A PAc^eD  TABLe  Op  THE  pORM  MMMMMNNNNNPPPPP, 


r0789  for  THE  normal  CASE,  M-S  ArE  THE  COMPONENT  CODE  NUMBER. 
R0790  N-S  ARe  THe  SF  ROUTINp  CODE  NUMBeR. 

R0791  p-s  Are  the  SF  constant  CODE  Number, 


R0792  mixed  CASe,M-S  ARe  THe  Sp  CONSTANTS  CODE  NUMBeR 
R0793  N-S  Are  the  SF  CQNSTANtZ  CODE  NUMBER 
R079A  P.S  are  The  SF  CONSTANTI  CODE  NUMBER 
RO795  N-S  Are  the  SF  constant?  code  number 
r0796  p-S  ArE  the  SF  CqNSTANTI  CqOE  NUMBEr 

ROT97  P-S  are  the  sf  constanti  code  Number 


3 component  CASE 


2 COMPONENT  CASE 
I component  CASe 


r0T98 

R0799 

R0800 

R0801 

R0802 


therE  is  also  An  Indirect  address  table udadotab)  for  mixed  case  only. 
eAcH  entry  contains  oNc  ccadr.  idaddReL  is  THe  Relative  address  of 
the  first  of  these  ENtSiIs, 

there  is  one  entry  in  this  table  for  each  component  of  a mixed  noun 

THEY  ARE  LISTED  IN  ORDER  OF  ASCENDING  K. 


R0803  there  iS  also  A SCALE  FACTOR  ROUTINE  NUMBER  TABLE!  RUTMxTAB  j FOR  MIXED 
RO8O4  CASE  ONLY,  there  IS  ONE  ENTRY  PER  MIXED  NOUN,  THE  FORM  IS, 
d080S  QQQQQRRRRRSSSSS 

R0806  Q-S  ARf  THg  SF  ROUTlNp  3 cODE  NUMBpR  3 COMPONENT  cASp 

robot  r-s  Are  the  sf  routine  2 CODE  Number 

R0808  S.S  ARE  THE  SF  ROUTINE  1 CODE  NUMBER 

ROsOR  R-S  are  THE  SF  ROUTINE  2 CODE  NUMBER  2 COMPONENT  CASE 

9O8IO  S-S  ArE  the  SF  routine  1 CoOE  NUMBER 


R0811  IN  OCfAL  DISPLAY  AND  LOAD  (OCt  OR  DEC)  VERBs,  EXCLyOE  ysE  OF  VERBs  WHOsE 

R0812  component  NUMBER  IS  qREATER  ThAN  ThE  NUMBER  Op  COMPONENTS  IN  NOUN. 

R0813  ALL  MACHINE  ADDRESS  TO  BE  SPECIFIED  NOuNs  ARE  1 COMPONENT. 

R0814  only  exception  iS  NOUN  01  TO  ALLOW  OCTAL  DISPLAYS  AND  LOAQS  OF 
RO815  AN  uNCONTOLLED  NuMBER  OF  COMPONENTS. 


RO8I6  IN  Multi-component  load  verbs,  no  mixing  of  octal  and  decimal  data 

r08I7  Component  wqrDs  is  allowed,  alArm  if  violAjIon, 


275690  YUL  system  F^R  BLK2!  REViSjON  0 Op  PROgRAM  ReTREDAA  BY  NASA  202H00  JUL  9i  1965  (MAiN,  PAGE  157 
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R0818  IN  decimal  loads  of  data,  5 NUMERICAL  CHARACTERS  MUST  BE  KEyED  In 
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P0820 

0821 

DISPLAY  VERBS 
05 

2326 

4 7645 

0 

DSPABC 

cs 

TWO 

0822 

05 

2327 

0 2376 

1 

TC 

COMPTEST 

0823 

05 

2330 

50  131 

1 

INDEX 

NOUNADD 

0824 

05 

2331 

4 O0O2 

1 

CS 

2 

0825 

05 

2332 

56  116 

1 

xch 

BUF  *2 

0826 

05 

2333 

4 7646 

0 

dspab 

cs 

ONE 

0827 

05 

2334 

0 2376 

1 

TC 

COMPTEST 

0828 

05 

2335 

50  131 

1 

INDEX 

NOUNADD 

0629 

05 

2336 

4 0001 

1 

CS 

1 

0830 

06 

2337 

56  115 

1 

xch 

BUF  +1 

0831 

05 

2340 

0 2420 

0 

OSPA 

TC 

TSTFORDP 

0832 

05 

2341 

50  I3l 

1 

INDEX 

NOUNADD 

0833 

05 

2342 

4 0000 

0 

CS 

0 

0834 

05 

2343 

56  114 

0 

DSPCOMl 

XCH 

BUF 

0835 

05 

2344 

0 2357 

1 

TC 

DSPC0M2 

0836 

05 

2345 

4 7646 

0 

DSPB 

CS 

ONE 

0837 

05 

2346 

0 2376 

1 

TC 

COMPTEST 

0838 

05 

2347 

50  13l 

1 

INDEX 

NOUNADD 

0839 

05 

2350 

4 0001 

1 

CS 

1 

0840 

05 

2351 

0 2343 

1 

TC 

DSPCOMl 

0841 

O5 

2362 

4 7645 

0 

DSPC 

CS 

TWO 

0842 

05 

2353 

0 2376 

1 

TC 

COMPTEST 

0843 

05 

2354 

50  131 

1 

INDEX 

NOUNADD 

0844 

05 

2355 

4 0002 

1 

CS 

2 

0845 

05 

2356 

0 2343 

1 

TC 

DSPCOMl 

0846 

05 

2357 

4 7645 

0 

DSPC0M2 

CS 

TWO 

0847 

O5 

2360 

6 0641 

1 

AD 

VERBREG 

0848 

05 

2361 

10  000 

0 

CCS 

A 

0849 

05 

2362 

0 2365 

0 

TC 

DSPC0M3 

0850 

05 

2363 

0 0122 

0 

TC 

ENTEXIT 

0851 

05 

2364 

0 2365 

0 

TC 

♦ 1 

0852 

05 

2365 

54  106 

1 

DSPC0M3 

TS 

DiSTeM 

0853 

O5 

2366 

5O  000 

1 

INDEX 

A 

0854 

05 

2367 

3 4444 

1 

CAF 

RlDl 

0855 

05 

2370 

54  637 

1 

TS 

DSPCOUNT 

0s56 

O5 

2371 

5O  106 

0 

INDEX 

DISTEM 

0867 

05 

2372 

4 0114 

1 

CS 

ByF 

dspoctwd 

0858 

05 

2373 

0 3222 

0 

TC 

085o 

0860 

O5 

2374 

56  106 

0 

XCH 

DISTEM 

05 

2375 

0 2361 

1 

TC 

DSPC0M2  +2 

R0861 

R0862 

R0863 

08^4 

0865 

0866 
°867 
0868 


cOMPTpST  alarms  IF  cOMPONpNT  NUMbcR  OF  VcRb(LOAd  OR  OcT  qISPLAY) 

greater  than  the  highest  Component  NuMber  of  noun. 


IS 


noun  01  iS  EXCLUDED  FROM  TEST, 

0;,23t6  5A  IO7  0 COMPTEST  TS 

06,2377  22  002  0 |.XCH 

05,2400  4 7646  0 cOMpTSTl  cS 

05«2401  6 0^42  1 AD 

05,2402  0 0006  1 EXTEND 


SFTEMPl 

0 

one 

NOUNREQ 


USER'S  OWN  page  NO,  24 


ABC 

AB 

ABC 

.1  .0  *1 

♦ 2 

♦ 3 IN  A 

♦0  fO  +0 

♦ 1 

♦2  IN  A after  CCs 

♦0,+l,+2 

INTO 

1 DISTEM 

- VERB  COMP 
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USEr*S  own  pAGE  NO*  25 


0869 

05*2403 

1 2417 

0 

BZP 

NDCMPTST 

NOUN 

s 01,  ANY  COMP  OK 

0870 

05.2404 

50  124 

0 

INDEX 

MlXBp 

NOUN 

z 
0 
— 1 

II 

0 

• 

0871 

05*2405 

3 2442 

1 

CAp 

COMPICK  -1 

0872 

05,2406 

50  000 

1 

INDEX 

A 

0873 

05,2407 

3 0000 

1 

CA 

0 

0874 

05*2410 

7 4475 

1 

MASK 

Hl5 

0875 

05*24U 

0 4456 

1 

TC 

LEFTS 

NOUN 

COMP 

0876 

05*2412 

6 0107 

1 

AD 

SpTEMpl 

noUn 

CqMp  " VEpB  CoMp 

0877 

05*2413 

10  000 

0 

ccS 

A 

0878 

05*2414 

0 0001 

0 

TC 

L 

NOUN 

COMP  6/  verb  comp 

0879 

05,2416 

uoc 

*l 

0880 

05.24U 

0 2324 

0 

TC 

godspalm 

NOUN 

COMP  L/  verb  COMP 

0881 

05*2417 

0 0001 

0 

NDCMPTST  TC 

L 

NOUN 

comp  0 VERB  COMP 

0882 

Os*Za20 

22  002 

0 

TSTPORDP  LXCH 

0 

test  for  dp,  if  so,  get  minor  part  only. 

08821 

05*2421 

3 0132 

1 

CA 

NNADtEM 

08822 

05,2422 

6 7646 

1 

AD 

ONE 

IF  NNADTEM  s -1,  CHANNEL  TO  BE  SPECiPjED 

08823 

05*2423 

0 0006 

1 

EXTEND 

08824 

05*2424 

1 2436 

0 

BZP 

ChAnDSp 

0883 

05*2425 

50  124 

0 

index 

MIXBR 

0884 

05,2426 

0 2426 

0 

TC 

+ 0 

0885 

05*2427 

0 2431 

0 

TC 

♦ 2 

NORMAL 

088* 

05*2430 

0 0001 

0 

TC 

L 

MIXED  CASE  ALREADY  HANDLED  IN  MIXNOUN 

0887 

05,2431 

0 2713 

0 

TC 

SPrUTNOR 

0888 

05*2432 

0 2236 

1 

Tc 

DPTeST 

0889 

05*2433 

0 0001 

0 

TC 

L 

NO  DP 

0890 

05*2434 

24  131 

1 

I NCR 

NOuNADD 

DP  E+1  INtO  NOyNADD  FOR  MINOR  PArt, 

0891 

05,2435 

0 0001 

0 

TC 

L 

08911 

05*2436 

0 0006 

1 

CHAnDSP  EXTEwD 

O89I2 

05*2437 

5 0657 

0 

INDEX  NOUNCADR 

08913 

05*2440 

00  000 

1 

READ  0 

08914 

05,2441 

4 0000 

0 

C5  A 

08915 

05*2442 

1 2343 

0 

TcF  dSPcOMI 

0892 

05*2443 

00133 

0 

COMPIcK 

AdReS 

NNTYPTeM 

0893 

05,2444 

00132 

1 

ADRES 

NNADTEM 

O894 

05*2445 

50  124 

0 

DECDSP 

index 

MIXBR 

NORMAL 

mixed 

0895 

05  2446 

3 2442 

1 

CAF 

COMPICK  -1 

ADRES  NNTYPTEM 

ADRES  NNADTEM 

0896 

05*2447 

50  000 

1 

INDEX 

A 

0897 

05,2450 

3 0000 

1 

CA 

0 

C (NNTYPTEM) 

C (NNADTEM) 

0898 

05*2451 

7 4475 

1 

MAsK 

HI5 

GEt  HI5  OF  NNtTPtAB<N0RM)0F  NNADjABCMIX) 

0899 

05*2452 

0 4456 

1 

Tc 

Lefts 
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USER'S  OWN  page  no.  26 


0900 

05 

2453 

59  103 

1 

TS 

DECOuNt 

COMP  Number  into  decount 

0901 

05 

2454 

54  106 

1 

DSPDCGET  T5 

DECTEM 

PICKS  UP  DATA 

0902 

09 

ZA55 

6 0131 

1 

AD 

NOUNADD 

DECTEM  ICoMP  *0*  2C0MP  *1» 

3C0MP 

*2 

0903 

05 

2456 

50  000 

1 

INDEX 

A 

090A 

05 

2457 

4 0000 

0 

cs 

0 

0905 

05 

2460 

50  106 

0 

index 

DeCTeM 

0906 

05 

2461 

56  693 

0 

XCH 

XREQ 

CANT  USE  BUF  SINCE  DMP  USES 

IT. 

0907 

09 

2462 

10  106 

1 

CCS 

DECTEM 

090g 

05 

2463 

0 2959 

0 

tc 

DSPDCGET 

MORE  TO  GET 

0909 

05 

2464 

3 7653 

0 

DSPDCPUT  CAF 

ZERO 

DISPLAYS  DATA 

0910 

05 

2465 

59  I4I 

1 

TS 

MpAc  *1 

DECOUNT  ICOMp  +0,  2cOMp  *1. 

3cOMP 

*2 

0911 

05 

2466 

59  192 

1 

TS 

MPAC  .2 

0912 

05 

2467 

50  103 

0 

INDEX 

DECOUNT 

0913 

05 

2470 

3 9999 

1 

caf 

RlDl 

O9I4 

05 

2471 

59  637 

1 

TS 

DSPCOUNT 

0915 

05 

2472 

50  103 

0 

INDEX 

decount 

0916 

05 

2473 

9 0693 

1 

CS 

XREG 

O9I7 

05 

2474 

59  190 

0 

TS 

MPAC 

0918 

05 

2475 

0 2739 

0 

tc 

SFCONuM 

2X(  SF  CON  NyMB  ) IN  A 

0919 

05 

2476 

59  107 

0 

TS 

SpTEMPl 

0920 

O5 

2477 

0 0006 

1 

extend 

SWITCH  banks  TO  SF  CONSTANT 

table 

0921 

05 

2500 

3 2512 

0 

DCA 

GTSFoUTl 

oEading  routine. 

0922 

05 

2501 

52  006 

0 

qXch 

2 

loads  SFTeMPI,  SFTeMP2. 

0923 

05 

2502 

50  129 

0 

INDEX 

MIxBR 

0924 

05 

2503 

0 2503 

0 

TC 

♦0 

0925 

05 

2504 

0 2507 

1 

Tc 

DSPSfNOR 

0926 

05 

2505 

0 2721 

1 

TC 

SFRUTMIX 

0927 

05 

2506 

0 2522 

0 

TC 

DECDSPS 

0928 

05 

2507 

0 2713 

0 

dSpsfnor  Tc 

5FRUTN0R 

0929 

05 

2510 

0 2522 

0 

TC 

DECDSP3 

0930 

El 

EbANKs 

DSPcOUNT 

0931 

05 

2511 

02037 

1 

GTSFOUTL  2CADR 

gtsfout 

C0931 

05 

2512 

19001 

0 

0932 

O5 

2513 

0 90&3 

0 

dspdcend  tc 

BANKCALL 

ALL  SFOUT  routines  END  HERE 

0933 

05 

2514 

11057 

0 

CADr 

DSpDECWD 

0934 

05 

2515 

10  103 

1 

ccS 

decOunt 

O935 

O5 

25l6 

0 2520 

1 

TC 

+ 2 

0936 

05 

2517 

0 0122 

0 

tc 

ENtEXIt 

0937 

05 

2520 

59  103 

1 

TS 

DECOUNT 

O938 

O5 

2521 

0 2969 

0 

TC 

DSPDCPUT 

MORE  TO  DISPLAY 

O99O 

05.2522 

50  000 

1 

DEcDSP3  index 

A 

0991 

05,2523 

3 2525 

1 

CAF 

SFOutABR 

0992 

05.2529 

0 9105 

1 

Tc 

BaNKJUMP 

27569° 


0943 
09431 

0944 

0945 

0946 

0947 

0948 

0949 
O949 1 


R0950 

R0951 


0952 

R0953 

R0954 

0955 

0956 

0957 
°958 

0959 

0960 

R0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 
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05,2525 

11255 

0 

SFOutABR  CADr 

05,2526 

12513 

0 

cadr 

05,2527 

10533 

0 

CADR 

05,2530 

10620 

1 

CADR 

05,2531 

10625 

1 

CADR 

Os, 2532 

10632 

1 

CADR 

05,2533 

10541 

0 

CADR 

05,2534 

10634 

1 

cadr 

05*2535 

ENDRTOUT  EQUAI 

USER'S  OWN  PAgE  no.  27 

DsPAlArM  alarm  if  dec  DlSP  with  OCyAL  ONLY  NOyN 

DSPOCeND 

DEGOUTSF 

artOutsf 

DPIOUTSF 

DP20UTSF 

OPDEGOUT 

DP30UTSF 


THE  FOLLOWING  IS  A^YPIcaL  SF  ROUTINE  . IT  USES  MPac*  LEaVES  REsu 
Lts  in  MPAC,  MPAC+1,  ENDS  wlTH  T°  DSPOCENO 


04,2533 

SETLOC  BlANKCON  ♦! 

0E( 

;OUTSp  scales 

BY  ,18  the 

LOW  14 

BITS  Op  ANqLe  , 

ADDINq  ,18  pOR 

NUMBEf 

?S  IN  THE  negative  (AGO 

range. 

04,2533 

3 7653 

0 

DeQOUTSF 

CAF 

ZpRO 

04,2534 

54  142 

1 

TS 

MpAC  .2 

SET  INDEX  for  FULL  SCALE 

04,2535 

0 2572 

0 

TC 

FiXRANQE 

04,2536 

0 2540 

1 

TC 

♦2 

NO  augment  needed  (SFTEMPl  AND  2 ARE  0) 

04,2537 

0 2565 

0 

tC 

sEtAUG 

SEt  AUGMENjER  according  yO  C(MPAC 

♦2) 

04,2540 

0 2603 

0 

TC 

deqcom 

OPDEGOUT  SCALES  By 

.45  ,THE  RANGE  15 

90 

DEGREES) 

AND 

ADDS  A 20  deg  BiAs 

. 

04,25A1 

10  140 

0 

OPdegOUT 

CCS 

MPAC 

RANgE  is  90  deg 

04  2542 

56  140 

1 

xch 

MPAC 

IF  POS  OR  POS  0 then  ADD  BIAS  AND 

04,2543 

0 2546 

1 

TC 

♦ 3 

correct  for  POSSIBLE  OVERFLOW 

04,2544 

0 2555 

0 

TC 

NEGOPT 

IF  NEG  non  zero 

04,2545 

6 7655 

0 

AD 

NEGl 

IF  nEG  zero  subtract  1 

04,2546 

6 2617 

0 

AD 

20b1 aS 

04,2547 

54  140 

0 

biascqm 

TS 

MPAC 

test  for  Overflow 

04,2550 

0 2553 

0 

TC 

♦ 3 

NO  OVpLOW 

04,2551 

3 7630 

0 

CAF 

BITI5 

IF  OVFLOW 

04,2552 

26  140 

0 

ADS 

MpAC 

04,2553 

3 7645 

1 

caf 

TWO 

SgT  multiplier  TO  ,45 

04,2554 

0 2534 

1 

TC 

DEGOUTSF  ♦! 

04,2555 

56  140 

1 

NEGOPT 

XcH 

MPac 

negative  case 

04,2556 

6 2617 

0 

AD 

20B1AS 

04,2557 

10  000 

0 

CCS 

A 

04,2560 

0 2547 

0 

Tc 

BIaScOM 

IF  POS  THgN  subtract  1 BeCAUSe  OF 

2ScOM 

04,2562 

LOC 

+ 1 

04,2562 

6 7646 

1 

AD 

ONE 

IF  NEG  Restore  sum 
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0980 

04,2563 

4 0000 

0 

Com 

IF  nEG  0 leave  NEG  0 

0981 

04,2564 

0 2547 

0 

TC 

BIASCOM 

0982 

04  2565 

0 0006 

1 

SEtAuG 

Extend 

loads  SFtEMPI  and  SFtEMp2  with  the 

0983 

04,2566 

5 0142 

0 

INDEX 

MpAC  +2 

DP  augmenter  constant 

09s4 

04,2567 

3 2614 

0 

DCA 

DEGTAB 

0985 

04,2570 

52  110 

0 

DXCH 

SFTEMPl 

0986 

04,2571 

0 0002 

0 

TC 

Q 

q987 

0A,z572 

10  1^0 

0 

fixrange 

CCS 

MpAC 

IF  MPAC  IS  + return  to  L*i 

0988 

04,2573 

0 0002 

0 

TC 

0 

IF  mPAC  is  - return  To  L*2  after 

0989 

04,2574 

0 0002 

0 

TC 

0 

MASKING  OUT  THE  SIGN  BIT 

0990 

04,2575 

1 2576 

0 

TCF 

♦ 1 

0991 

04,2576 

4 7630 

1 

cs 

BIT15 

0992 

04,2577 

7 0140 

0 

Mask 

MPAC 

0993 

04«2600 

54  I4O 

0 

TS 

MPAC 

0994 

04,2601 

50  002 

0 

INDEX 

n 

0995 

04,2602 

0 0001 

0 

TC 

1 

O996 

04,2603 

0 0006 

1 

DEGCOM 

EXTEND 

LOADS  multiplier  i DOES  SHORTMP,  AND 

0997 

04,2604 

5 0142 

0 

INDEX 

MpAC  +2 

ADDS  AuGMENtER, 

0998 

04,2605 

3 261A 

0 

OCA 

degtab 

0999 

04,2606 

52  141 

1 

DXCH 

MPAC 

adjusted  Angle  in  a 

1000 

04,2607 

0 7257 

0 

TC 

SHORTMP 

lOOl 

04,2610 

52  110 

0 

OXCh 

SfTEMPI 

IOO2 

04,2611 

20  141 

1 

DAS 

MPAC 

1003 

04,2612 

0 2623 

1 

TC 

scoutend 

1004 

04,2613 

05605 

1 

degtab 

OCT 

05605 

HI  part  of 

.18 

1005 

04,2614 

03656 

1 

OcT 

03656 

LOW  Part  of 

.18 

lOOfc 

04,26l5 

16314 

0 

OCT 

16314 

HI  PART  OF 

.45 

1007 

04,2616 

31463 

1 

OCT 

31463 

LO  part  of 

.45 

1008 

04,2617 

16040 

1 

20bIaS 

OcT 

16040 

20  pEG  bias 

FOR  OPTicS 

1009 

04,2620 

52  110 

0 

ArTqUTSF 

dxCh 

SFTEMpl 

ASSUMES  POINT  AT  LEFT  oF  Dp 

SFCqN 

1010 

04,2621 

52  141 

1 

DXcH 

MPAC 

1011 

04  2622 

0 7257 

0 

TC 

SHORTMP 

1012 

04,2623 

0 4102 

0 

SCOUTEND 

TC 

POSTjUMP 

1013 

04,2624 

12513 

0 

CADR 

DSPDCEND 

1016 

04,2625 

0 2637 

1 

DploUTSF 

TC 

DpoUT 

scales  MpAC 

. MpAC  *1  By  Dp 

SCALE  FACTqR 

IOI7 

04,2626 

56  142 

0 

XCH 

MpAC  *2 

IN  SFTEMPI, 

SFTEMP2.  THEN 

SCALE  RESULT 

1018 

04,2627 

56  141 

0 

XCH 

MpAC  +1 

BY  B14, 

1019 

04,2630 

54  140 

0 

TS 

MPAC 

IO2O 

04,2fc3l 

0 2fe23 

1 

TC 

SCOUTEND 

275690 
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User's  own  page  no. 

29 

1021 

04,2632 

0 2637 

1 

DP20UTSF  TC 

DpOUT 

SCALES  MPAC  , MPAC  *i 

BY  DP  scale  factor 

1022 

04,2633 

0 2623 

1 

tc 

SCOUtEND 

1023 

04,2634 

0 2637 

1 

DP30uTSF  tC 

OpOyT 

Assumes  point  betwEEN 

bits  7-8  OF  high 

1027 

04,2635 

0 3032 

0 

TC 

TPLEFT7 

PART  OF  SFCON,  SHIFTS 

RESULTS  LEFT  7, 

1028 

0a,2s36 

0 2623 

1 

TC 

SCOUTEND 

RIO29 

DPOUT  PICKS  UP 

Fresh  data  for 

BOTH  HI  AND  LO  COMPONENTS 

• 

R1030 

tHis  Is  needed 

FOR  time  display. 

1032 

04,2637 

56  002 

0 

DPOUT 

XCH 

0 

1033 

04,2640 

54  105 

1 

TS 

OvFIND 

1034 

04,2641 

50  124 

0 

INDEX 

MiXBR 

1035 

04,2642 

0 2642 

0 

TC 

♦ 0 

1036 

04,2643 

0 2660 

0 

tc 

DPOUtNOR 

1037 

04,2644 

50  103 

0 

index 

DeCOUNT 

get  IDADDTAB 

entry  f°R  component  k 

1038 

04,2645 

3 0134 

1 

CA 

IDADITEM 

OF  NOUN, 

103g 

04,2646 

7 4503 

1 

MASk 

LOWll 

E SUBk 

IOaO 

04,2647 

0 4440 

0 

TC 

SETEBANK 

SET  EB,  LEAVE 

eadres  in  a. 

1041 

04,2650 

0 0006 

1 

DPOyTCOM 

extend 

1042 

04,2651 

5 0000 

1 

index 

A 

Mixed 

NORMAL 

IO43 

04,2652 

3 0001 

0 

DCA 

0 

C(ESUBK) 

C(E1 

1044 

04,2653 

52  14I 

1 

DXCH 

MpAC 

C((E  SUBX)*I) 

C(E*1) 

1045 

04,2654 

0 7062 

1 

TC 

dmp 

1046 

04,2655 

OOIO7 

1 

ADRES 

SFTEMPl 

1047 

04,2656 

0 7226 

0 

tc 

tpagree 

1048 

04,2657 

0 0105 

0 

tc 

OVFIND 

1049 

04,2660 

3 0131 

1 

DPOUTNOR 

CA 

NOUNADD 

E 

1050 

04,2661 

0 2650 

0 

TC 

OPOUTCOM 

R1051  this  is  a special  purPqSE  verb  FqR  Displaying  a DquBlE  precision  agc 

RIO52  word  as  10  DECIMAL  DIGITS  ON  THE  AqC  DISPLAY  PANEL.  IT  CAN  BE  USED  WITH 

R1053  any  NOuN.  except  MIXED  NOyNs,  It  DISPLAYS  tHE  CQNtENtS 

RIO54  OF  ThE  register  NOUNADD  jS  PO.NTtNq  to  . jF  USED  W.Th  NOUNS  WhiCh  ARE 

R1q55  inherently  NOT  Dp  SUCH  AS  THE  COU  COUNTERS  THE  DISPLAY  WILL  BE  GARBAGE. 

R1056  DISPlAY  IS  IN  Rl  AND  RZ  ONlY  WITH  THE  SIGN  IN  Rl, 


1058 

04,2662 

IO69 

O4 ,2663 

1060 

04,2664 

1061 

04,2665 

50  124 

0 

DSpDpOEC  Index 

mixbr 

0 2663 

0 

TC 

♦ 0 

0 2666 

0 

TC 

*2 

0 3255 

0 

Tc 

DSPaLaRM 

normal  noun 
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04,2666 

0 0006 

1 

extend 

04,2667 

5 0131 

1 

INDEX 

NOUNAOD 

04,2670 

3 0001 

0 

DCA 

0 

04,2671 

52  141 

1 

DXCH 

MPAC 

04,2672 

3 4444 

1 

CAF 

RlDl 

04,2673 

54  637 

1 

TS 

OSPCOUNT 

04,2674 

3 7653 

0 

CAF 

ZERO 

04,2675 

54  142 

1 

TS 

MPAC  *2 

04,2676 

0 7226 

0 

TC 

TPA6REE 

04,2677 

0 3133 

0 

TC 

DSP2DEC 

04,2700 

0 0122 

0 

ENDDPDEC  TC 

ENTEXIT 
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P1073 

LOAD  verbs 

1074 

05,2535 

SETLOc 

endrtout 

1075 

05,2535 

4 7645  0 

ABCLOAD  C5 

TWO 

1076 

05,2536 

0 2376  1 

TC 

COMPTeST 

IO77 

05,2537 

3 2673  1 

CAP 

VBSPILD 

1078 

05,2540 

0 2314  0 

tc 

UPDAjVB 

1079 

05,2541 

0 2252  0 

TC 

reodatx 

lOgO 

05,2542 

3 2674  0 

CAP 

VBSP2LD 

1081 

05,2543 

0 2314  0 

TC 

UPDAtVB 

1082 

05,2544 

0 2254  0 

TC 

reodaty 

10g3 

05,2545 

3 2675  I 

CAP 

VBSP3LD 

1084 

05,2546 

0 2314  0 

TC 

UPDAtVB 

1085 

05,2547 

0 2256  1 

Tc 

reOdatz 

1086 

05,2550 

4 6162 

0 

pUTxYZ 

CS 

Six 

1087 

05,2551 

0 2676 

1 

Tc 

ALLdC^Oc 

I088 

05,2552 

0 OQOS 

1 

EXTEND 

1089 

05,2553 

3 2076 

1 

DCA 

1 ODNNiOC 

lOgO 

05,2554 

52  006 

0 

DXCH 

2 

IO9I 

05,2555 

3 7653 

0 

CAP 

ZERO 

1092 

05,2556 

0 2762 

0 

TC 

PUTCOM 

IO93 

05,2557 

5O  131 

1 

INDEX 

NOUNAOD 

1094 

05,2560 

54  000 

0 

TS 

0 

lOgS 

05,2561 

3 7646 

1 

cae 

one 

1096 

05,2562 

0 2762 

0 

TC 

PUTCOM 

1097 

05,2563 

50  131 

1 

INDEX 

NOUNADD 

1°98 

05,2564 

54  001 

1 

TS 

1 

1099 

05,2565 

3 7645 

1 

CAP 

TWO 

1100 

05,2566 

0 2762 

0 

TC 

PUTCOM 

1101 

05,2567 

50  131 

1 

index 

nqunaod 

1102 

05,2570 

54  002 

1 

TS 

2 

1103 

05,2571 

0 2663 

0 

TC 

loadlv 

1104 

05,2572 

4 7646 

0 

abload 

CS 

ONE 

1105 

05,2573 

0 2376 

1 

TC 

COMPTEST 

1106 

05,2574 

3 2673 

1 

CAP 

VBSPILD 

1107 

05,2575 

0 2314 

0 

UPDAjVB  . 

llOg 

05,2576 

0 2252 

0 

TC 

ReQdatx 

IIO9 

05,2577 

3 267A 

0 

CAP 

VBSP2L0 

1110 

05,2600 

0 2314 

0 

tc 

UPDAjVB  . 

nil 

05,2601 

0 2254 

0 

Tc 

ReQdATY 

1112 

05,2602 

4 7225 

1 

PUTXY 

CS 

PIVE 

1113 

05,2603 

0 2676 

1 

tc 

AlLDC/OC 

1114 

05,2604 

0 0006 

1 

EXTeNd 

JUL  9*  1965  (MaiN)  Page  iss 
user'S  own  page  no*  si 


TEST  that  the  3 DATA  WqrDS  LOADED  ApE 
ALL  DEC  OR  all  OcT. 

switch  BAN«S  to  noun  TABlE  reading 

ROUTINE, 

X COMP 


Y cOMP 


Z COMP 


TEST  THAT  THE  2 DATA  WORDS  LOADED  ARE 

all  dec  or  All  oct* 
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1115 

05,2605 

3 2076 

1 

DCA 

lqdnnloc 

1116 

05,2606 

52  006 

0 

OXCH 

z 

111? 

05,2607 

3 7693 

0 

CAF 

ZERO 

1118 

05,2610 

0 2762 

0 

TC 

PUTCOM 

1119 

05,2611 

50  131 

1 

INDEX 

NOUNADD 

1120 

09,2612 

54  000 

0 

TS 

0 

1121 

05,2613 

3 7656 

1 

CAF 

ONE 

1122 

05,2614 

0 2762 

0 

TC 

PUTCOM 

1123 

05,2615 

50  131 

1 

INDEX 

nounaod 

1124 

05,2616 

54  001 

1 

TS 

1 

1128 

05,2617 

0 2663 

0 

TC 

LOADLV 

1126 

05,2620 

0 2252 

0 

aload 

TC 

reqdatx 

1127 

05,2621 

0 0006 

1 

EXTEND 

1128 

05,2622 

3 2076 

1 

DCA 

LODNNLOC 

1129 

05,2623 

52  006 

0 

OXCH 

Z 

1130 

05,2624 

3 7653 

0 

CAP 

Zero 

1131 

05,2625 

0 2762 

0 

TC 

PUTCOM 

1132 

05,2626 

50  131 

1 

INDEX 

NOUNADD 

1133 

05,2627 

54  000 

0 

TS 

0 

1134 

05,2630 

0 2663 

0 

Tc 

loadlv 

1135 

05,2631 

4 7646 

0 

BLOAD 

CS 

ONE 

1136 

09,2632 

0 2376 

1 

TC 

COMPTEST 

1137 

05,2633 

3 7630 

0 

CAF 

BITI5 

113b 

05,2634 

54  655 

0 

TS 

CLPASS 

1139 

05,2635 

0 2254 

0 

TC 

REODATY 

1140 

05,2636 

0 0006 

1 

EXTEND 

1141 

05,2637 

3 2076 

1 

DCA 

LODNNLOC 

1142 

05,2640 

52  006 

0 

DXCH 

Z 

1143 

05,2641 

3 7646 

1 

CAF 

one 

1144 

05,2642 

0 2762 

0 

tc 

PUTCOM 

1145 

05,2643 

50  131 

1 

INDEX 

NOUNAOD 

1146 

05,2644 

54  001 

1 

TS 

1 

11^7 

05,2645 

0 2663 

0 

TC 

loadlv 

1148 

05,2646 

4 7645 

0 

cload 

C5 

TWO 

lUR 

05,2647 

0 2376 

1 

TC 

COMPTEST 

1150 

05,2650 

3 7630 

0 

CAF 

BIT15 

1151 

05,2691 

54  655 

0 

TS 

CLPASS 

II52 

05,2692 

0 2256 

1 

TC 

reqdatz 

1153 

05,2653 

0 0006 

1 

extend 

1154 

05,2654 

3 2076 

1 

dcA 

LODNNLOC 

II55 

05*2695 

52  00(, 

0 

DXCH 

Z 

1156 

05,2656 

3 7645 

1 

CAF 

TuO 

1157 

09,2697 

0 2762 

0 

Tc 

PUTcOM 

1158 

05*2660 

5O  I3l 

1 

INDEX 

NOUNADD 

1159 

05,2661 

54  002 

1 

TS 

2 

1160 

05,2662 

0 2663 

0 

TC 

loadlv 

SWITCH  banks  to  noun  TABLE  READING 
ROUTINE, 

X COMP 


Y COMP 


Switch  banks  to  noun  table  reading 
routine, 

X comp 


SET  CLPASS  for  PASSO  ONLY 


Switch  banks  to  noun  table  reading 

ROUTINE, 


SET  CLpASS  For  pASSO  ONLY 


SWiTCh  banks  to  noun  table  ReADjNq 
ROUTINE, 
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pinb^sLL  g^me  buttons  /vno  lights 


ll6l 

05.2663 

3 7653 

0 

LoADLV 

CAP 

ZERO 

1162 

05.2664 

54  640 

1 

T5 

DECBRNCH 

1163 

05.266S 

4 7653 

1 

CS 

zero 

1164 

05 . 2666 

54  654 

1 

TS 

LOADSTAT 

1165 

05.2(,67 

4 45O6 

1 

CS 

VDl 

1166 

05.2670 

54  637 

1 

TS 

DsPCOuNt 

1167 

05.2671 

0 4102 

0 

TC 

POSTJUMp 

1168 

05.2672 

II4OO 

0 

CADR 

RECALTST 

1170 

05.2673 

00021 

1 

VBSPILD 

OcT 

21 

II7I 

O5.Z674 

00022 

1 

VBSP2LD 

OCT 

22 

1172 

05.2675 

00023 

0 

VBSp3L0 

OCT 

23 

1173 

05.2676 

54  103 

1 

ALLDC/oC 

TS 

DECOuNt 

1174 

05.2677 

4 0640 

1 

CS 

DECBRNCh 

1175 

Q5.27o0 

54  oZl 

0 

TS 

SR 

1176 

05.2701 

4 0021 

0 

CS 

SR 

1177 

05.2702 

4 0021 

0 

CS 

SR 

1178 

05.2703 

10  000 

0 

CCS 

A 

1179 

05.2704 

1 2706 

0 

TCP 

♦ 2 

1180 

O5.27O5 

0 0002 

0 

TC 

0 

llBl 

05.2706 

6 0103 

0 

AD 

DECoUNT 

1182 

05.2707 

0 0006 

1 

EXTeNd 

1183 

05,2710 

1 2712 

0 

BzF 

*2 

1184 

05.2711 

0 2324 

0 

TC 

QODSPALM 

II85 

O5.27I2 

0 0002 

0 

GOO 

TC 

Q 

1186 

O5.27I3 

56  002 

0 

5FRUTN0R  XCH 

0 

1187 

05.2714 

54  100 

1 

TS 

EXItEM 

1188 

05.2715 

3 4474 

1 

CAF 

Mjd5 

llgR 

O5.27I6 

7 0133 

1 

MASK 

nntyptem 

1190 

05.2717 

0 4447 

1 

TC 

rights 

1191 

05.2720 

0 0100 

0 

TC 

EXITeM 

1192 

05.2721 

56  002 

0 

sFrUTMIX  XCH 

0 

1193 

05.2722 

54  100 

1 

TS 

eXITeM 

1194 

05,2723 

50  103 

0 

INDEX 

DECOUNT 

II95 

05,2724 

3 2793 

1 

CAF 

Displace 

119ft 

O5.2725 

54  001 

1 

TS 

L 

1197 

05,2726 

50  103 

0 

index 

DECqUNT 

1198 

09,2727 

3 4473 

0 

CAP 

LOWS 

1199 

05  2730 

7 0137 

0 

MASK 

RUTMxTEM 

1200 

05J2731 

50  001 

0 

INDEX 

L 

1201 

05.2732 

0 0000 

1 

TC 

0 

R1Z02 

DO  jC  GOQ(DECOuNt»0) . DO  T^  1 

?IGHt5 (DECOuNt*! ) . 00  t^  LEFtS (DECOyNT 

1203 

05,2733 

0 0100 

0 

SpRETl  TC 

EXiTeM 

USERtS  OWN  P^GE  NO.  33 


TO  BLOCK  numerical  CHARACTERS  AND 
CLEARS  After  A COMPLEjED  LOAD 

After  completed  load.  g°  to  recaltst 
TO  see  if  there  is  recall  from  endidle, 

VB21  3 ALOAO 
VB22  a BLOAD 
VB23  a CLOAO 


tests  tHAt  DAjA  WORDS  LOADED  ARE  EItHER 
all  dec  or  ALL  OCT.  ALARMS  jp  NOT. 


shifted  right  2 

DEC  COMP  bits  in  LOw  3 

some  ones  in  low  3 

ALL  ZEROS.  ALL  OCTAL.  OK 

DEC  Comp  a 7 for  SCOMp,  aS  for  2C0Mp 

(BUT  IT  HAS  BpEN  DECREMENTED  BY  CCS) 

MUST  match  6 FOR  3C0MP,  5 FOR  2C0MP. 

ALL  REQUIRED  ARE  DEC.  OK 


GETS  SF  ROUTINE  NUMBER  FOR  NORMAL  CASE 

cant  use  l for  return.  tstFordp  uses  L. 


Sp  routine  number  in  a 

GETS  sE  routine  NUMBER  FOR  MIXED  CAjE 
PUT  TC  GOQ,  TC  RIGHTS.  OR  TC  LEFTS  iN  L 


LOWS.  midS.  or  his  in  a 

GET  HIS,  MIOS,  OR  LOwS  OF  RUTMxTAB  ENTRy 


Sp  routine  number  iN  a 


27S690 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

R1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

R1241 

1242 

1243 

1244 

1247 

12471 

12472 

12473 


pinball  game 


05.-  , . . 

05*2776 

05,2777 

IXNOUN,  place  AodRcSS  pOR 
05  3000 
05;3001 

05.3002 

05.3003 

05.3004 

05.3005 

05.3006 


REVISION 

0 

OF  PROGRAM  RETRED44  by  NAsA  2021100 

JUL  9,  1965 

(MAIN)  PAGE  168 

i AND  Lights 

USER'S  OWN  page  no,  34 

05,2734 

56 

002 

0 

SFCONUM  XCH 

Q 

GETS  2X<  SF  CONSTANT  NUMBER) 

05,2735 

54 

100 

1 

TS 

EX  ITEM 

05,2736 

50 

124 

0 

INDEX 

MIXBR 

05,2737 

0 

2737 

0 

TC 

♦ 0 

05,2740 

0 

2756 

1 

TC 

CONUMNOR 

NORMAL  NOUN 

05,2741 

50 

103 

0 

INDEX 

DECOUNT 

MIXED  NOUN 

05,27A2 

3 

2753 

1 

CAF 

displace 

05,2743 

54 

001 

1 

TS 

L 

PUT  TC  QOQ,  TC  RIGHTS,  OR  TC  LEFTS  IN  L 

05,27A4 

50 

103 

0 

INDEX 

DECOUNT 

05,Z7A5 

3 

4473 

0 

. CAF 

LOWS 

05,2746 

7 

0133 

1 

MASK 

NNTYPTEM 

05,2747 

50 

001 

0 

INDEX 

L 

05,2750 

0 

0000 

1 

TC 

0 

UO  TC  RIGHTS (DeCOUNT*!) , DO  TC  LerTS (DeC0UNT=2) . 

05,2751 

6 

0000 

1 

SFREt  double 

2x(sf  constant  Number  ) 

IN  A 

05,2752 

0 

0100 

0 

TC 

EXiTEM 

05,2753 

0 

2712 

1 

DISPLACE  JC 

GOO 

05,2754 

0 

4447 

1 

TC 

Rights 

05,2755 

0 

4456 

1 

TC 

LEFTS 

05,2756 

3 

4473 

0 

ConUMNOR  CAF 

LqWS 

normAl  noUn  always  gets 

LqW  5 oF 

05,2757 

7 

0133 

1 

Mask 

NNTYPTeM 

NNTYPTAB  FOR  SF  cONUM, 

05,2760 

6 

0000 

1 

double 

05,2761 

0 

0100 

0 

TC 

EXITeM 

2X(  SF  CONSTANT  NUMBER) 

IN  A 

05,2762 

54 

103 

1 

PUTCOm  TS 

DECOUnT 

05,2763 

56 

002 

0 

XCH 

0 

05,2764 

54 

101 

0 

TS 

DECRET 

05,2765 

3 

7653 

0 

CAF 

Zero 

05,2766 

54 

105 

1 

TS 

OVFIND 

05,2767 

50 

103 

0 

INDEX 

DECOuNT 

05,2770 

56 

646 

0 

XCH 

XREGLP 

05,277! 

54 

l4l 

1 

TS 

MPAC  4l 

05,2772 

50 

103 

0 

INDEX 

DECQUNt 

05,2773 

56 

6A3 

0 

XcH 

XReg 

MpAC 

05  2774 

54 

140 

0 

TS 

50  124 
0 2776  0 
0 3023  0 
COMpoNcNT 
50  103  0 
3 0134  1 
7 45O3  1 
0 4430  1 
0 0006  1 
60  103  0 
54  131  0 


INDEX 

TC 

TC 

K INTO  NOUNAdd* 
INDEX 
CA 

MASK 

tC 

EXTEND 

SU 

TS 


MiXBR 

*0 

PUTnorM 

ScT  -bank  bits. 

DECOuNT 

idaditem 

LOWll 

sEjNCADR 

DECOUNT 

NOuNADD 


normal  noUn 

get  IDADDtAB  entry  for  component  k 

OF  NOUN, 

(ECADr)SUBK  FOR  current  COMP  OF  NOUN 
ECADR  INtO  NCuNCADR,  sEjs  EB,  NOuNADO, 
C (NOUNADD)  IN  A UPON  RETURN 
PLACE  (ESUBK)-K  INTO  NOUNADD 
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IZ48 

05.3007 

10  640 

1 

CCS 

decbrnch 

1249 

05.3010 

0 3051 

0 

PjTDECsF 

IZ5O 

05.3011 

0 2721 

1 

TC 

SfRUTMiX 

IZ5I 

0s,30l2 

0 2236 

1 

TC 

DPTEST 

1252 

05.3013 

0 3040 

0 

TC 

PUTC0M2 

A1253 

AI254 

A1255 

1256 

05.3014 

24  131 

1 

PUTdPCOM 

tNCR 

nounadd 

i257 

05.3oi5 

3 oi3l 

1 

CA 

NOUNAOD 

1258 

05.3016 

26  103 

1 

ADS 

DECOUNT 

125p 

03.3017 

3 7653 

0 

CAF 

ZERO 

1260 

05.3020 

50  103 

0 

INDEX 

DECOjNT 

1261 

05.3021 

53'777 

0 

TS 

0 

i262 

05,3oZ2 

0 3q40 

0 

TC 

PUTC0M2 

1263 

05.3023 

0 4436 

1 

PUTNORM 

TC 

SeTNAdo 

1264 

05,3o24 

lO  64q 

1 

CCS 

DECBRNCH 

1265 

05.3025 

0 3051 

0 

TC 

putdecsf 

1266 

05.3026 

0 H7I3 

0 

TC 

SFRUTNOR 

1267 

05.3027 

0 2236 

1 

tc 

DPtEst 

1268 

05.3030 

0 3034 

0 

TC 

PUTC0M2  . 

1269 

05.3031 

3 7653 

0 

CAF 

ZERO 

1270 

05.3032 

54  103 

1 

TS 

decount 

1271 

05.3033 

0 3014 

1 

Tc 

PUTdPcOM 

12711 

05,3034 

3 0132 

1 

CA 

NNADTEM 

12712 

05,3035 

6 7646 

1 

AD 

ONE 

I27I3 

05.3036 

0 0006 

1 

EXTEND 

12714 

05,3037 

1 3044 

0 

BZF 

chanload 

1272 

05,3040 

56  140 

1 

PUTC0M2 

XCH 

MPAC 

1273 

O5.3O6I 

0 0101 

1 

TC 

OECRET 

1274 

El 

EBAnK= 

DSpCoUnT 

1275 

05.3042 

02045 

1 

GTSFINUc 

2cAdR 

GTSFIN 

CI275 

05,3043 

14Q01 

0 

I275I 

05,3064 

56  I4O 

1 

CHANLOAD 

XCH 

MPAC 

12752 

05,3045 

0 0006 

1 

extend 

12753 

09,3046 

5 0657 

0 

iNDEX 

NOUNCADR 

12754 

05,3047 

01  000 

0 

WRITE 

0 

12755 

05.3050 

0 2663 

0 

TC 

LOADLV 

R1276 

PUTBeCSF  finds  MI^BR  and  DECOuNT  still 

set  from  PutCOM 

1277 

05,3051  0 2734  0 

putdecSf  Tc 

SpcONUM 

1278 

05,3052  54  107  0 

TS 

SFTEMPl 

jUl  9t  1965  (mAIN)  PAGE  I69 


User's  own  page  no.  35 


♦ DEC 
♦0  OCTAL 

NO  DP 

test  for  dp  scale  for  OCt  load,  if  so, 
♦0  into  major  part,  set  nounaod  for 
loading  OCtAL  word  INtO  minor  part. 

DP  (eSUBK)-K+1  or  E*l 
nounado  now  set  for  Minor  part 
(ESUBk)+1  or  E+1  into  decount 
nounadd  set  for  minor  part 

Zero  major  partiesubk  or  e) 


ecadr  from  nouncadr.  Sets  eb.  nounadd. 

♦ DEC 
+0  OCTAL 

NO  DP 
OP 


IF  NNADTEM  » ,1.  CHANNEL  TO  BE  SPECIFIED 


2X(Sf  con  NUMB)  IN  A 
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1279 

05,3053 

0 0006 

1 

EXTEND 

Switch  banks  to  sf  constant  table 

1280 

05,3054 

3 3043 

0 

DCA 

GTSFINLC 

READING  ROUTINE, 

1281 

05,3055 

52  006 

0 

DXCH 

Z 

LOADS  SFTEMPI,  SFTEMP2, 

1282 

05,3056 

50  124 

0 

INDEX 

MIXBR 

1263 

05,3057 

0 3057 

0 

TC 

♦ 0 

1284 

05,3060 

0 3063 

1 

TC 

PUTSFNOR 

1285 

05,3061 

0 2721 

1 

TC 

5FRUTMIX 

1286 

05,3062 

0 3064 

0 

TC 

PUTDCSF2 

1287 

05,3063 

0 2713 

0 

PUTSFNOR 

TC 

sfrutnor 

1288 

05,3064 

50  000 

1 

PUTDCSF2 

INDEX 

A 

1289 

05,3065 

3 3067 

0 

CAP 

SFINTABR 

12,0 

05,3066 

0 4105 

1 

TC 

bankjump 

SWITCH  banks  for  expanshion  room 

12gl 

05,3067 

11255 

0 

SFINtABR  cadr 

DsPALARM 

ALARM  IF  DEC  LOAD  WIjH  OCjAL  ONLY 

12911 

05,3070 

10761 

0 

CADR 

BiNROUND 

1292 

05,3071 

IO7OI 

0 

CADR 

DEGINSF 

1293 

05,3072 

10751 

0 

CADR 

arthinsf 

1294 

05,3073 

11001 

0 

CADR 

DPINSF 

12,5 

05,3074 

11026 

0 

CADR 

DPIN5F2 

1296 

05,3075 

10764 

0 

CADR 

OPTDEGIN 

1297 

05,3076 

llOGl 

0 

CADR 

DPiNSF 

same  as  ARiThDPI 

12971 

05,3077 

ENDRUTIN 

EQUALS 

RIZ98  scale  factors  for  those  routines  needing  them  are  available  in  SFTEMpi, 

R1299  ALL  sFIN  ROyTlNEs  uSE  MpAC  MPAC+1,  LEAVE  RESuLt  IN  A.  END  WljH  jC  DECREj 


1300  04,2701  SETLOC  ENDDPDEC  +1 


1301 

dEgINSF  applies  1000/180  .5,55555(10) 

s 

5,43434(8) 

1302 

04,2701 

0 7062 

1 

DEGInSF 

TC 

dmp 

SF  routine  For  DEC  DEGrEES 

1303 

04,2702 

02744 

1 

AdReS 

pcGcONl 

MULT  BY  5,5  5(10)x2eXP-3 

1304 

04,2703 

10  141 

1 

CCS 

MpAC  +1 

this  rounds  off  mpac+1  Before  shift 

1305 

04,2704 

3 763A 

1 

CAF 

BiTll 

left  3,  AND  CAUSES  360  00  TO  OF/UF 

1306 

04,2705 

0 27O7 

0 

TC 

♦2 

WHEN  SHIFTED  LEFT  AND  ALARM. 

1307 

04,2706 

4 7634 

0 

cs 

Bull 

1308 

04,2707 

6 0141 

0 

AD 

MPAC  .1 

1309 

04,2710 

0 3044 

1 

TC 

2R0UN0  *2 

1310 

04,2711 

0 4532 

1 

TC 

TpStl 

left  1 

1311 

04,2712 

0 4532 

1 

DEGINSF2 

Tc 

TPSLl 

Left  z 

1312 

04,2713 

0 3053 

1 

TC 

tESTOFuF 

1313 

04,2714 

0 4532 

1 

TC 

TPSLl 

RETURNS  if  NO  Op/Up  (LEFTS) 

1314 

04,2715 

10  UO 

0 

CCS 

MpAC 

1315 

04,2716 

0 2722 

1 

SiQNFIX 

IF*.  GO  TO  SIGNFIX 

1316 

04,2717 

0 2722 

1 

TC 

SjgNfiX 

IF  +0.  G°  TO  SiqNFiX 

1317 

04,2720 

4 0000 

0 

COM 

IF  - , USE  -MAGNITUDE  +1 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

C1337 

1338 

C1338 

133q 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 
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USER'S  Own  page  no,  37 


04,2721 

54  140 

0 

TS 

MPAC 

04,2722 

10  105 

1 

SIGNFIX 

CCS 

ovfind 

04,2723 

0 2740 

0 

TC 

SGNTol 

04,2724 

0 2734 

0 

TC 

ENdSCALe 

04,2725 

10  140 

0 

CCS 

MpAC 

04,2727 

LOC 

+ 1 

04,2727 

0 2736 

1 

TC 

NEG180 

04,2730 

0 2731 

0 

TC 

♦ 1 

04,2731 

56  140 

1 

XcH 

MPAC 

04  2732 

7 7626 

0 

MASK 

POSMAX 

04,2733 

54  140 

0 

TS 

MPAC 

04,2734 

0 4102 

0 

ENDSCALE 

TC 

POSTJUMP 

04,2735 

13040 

1 

CADr 

pUTCqM2 

04,2736 

4 7626 

0 

NEGlgO 

cs 

POSMAX 

04,2737 

0 2733 

1 

tc 

ENDsCALE  -1 

04,2740 

4 0140 

0 

SGNTOl 

C5 

MPAC 

04,2741 

7 7626 

0 

mask 

POSMAx 

04,2742 

4 0000 

0 

cs 

A 

04,2743 

0 2733 

1 

TC 

ENDSCALe  -1 

04,2744 

26l6l 

0 

DEGCONi 

2DEC 

5,555555555  B-3 

04,2745 

30707 

1 

04,2746 

21616 

0 

DEGC0N2 

2dEC 

2,222222222  B-2 

04,2747 

07071 

0 

04,2750 

71527 

1 

nEG,2 

oCT 

.06250 

04,2751 

0 7062 

1 

ARTHINSF 

TC 

DMP 

04,2752 

00107 

1 

ADREs 

sFjEMPI 

04,2753 

56  142 

0 

XCH 

MPAC  +2 

04,2754 

56  141 

0 

XCH 

MPAC  ♦! 

04,2755 

56  140 

1 

XCH 

MPAC 

04,2756 

0 0006 

1 

EXTEND 

04,2757 

1 2761 

1 

BZF 

binround 

04,2760 

0 3255 

0 

TC 

dspalarm 

04,276! 

0 3042 

1 

BINROUND 

TC 

2R0UND 

04,2762 

0 3053 

1 

TC 

TESToFUF 

04,2763 

0 273A 

0 

Tc 

eNdScaLe 

04,2764 

10  140 

0 

OPTDEgIN 

CCS 

MPAC 

04,2765 

0 2771 

1 

TC 

♦ 4 

0*',2766 

0 2771 

1 

TC 

♦ 3 

04,2767 

0 3255 

0 

Tc 

nSPALARM 

04,2770 

0 3255 

0 

TC 

DSPALARM 

0?,277l 

3 2750 

1 

0PDEGIN2 

CAF 

NEG.2 

04,2772 

26  I4O 

0 

ADS 

MPAC 

04,2773 

0 7062 

1 

TC 

dmp 

IP  .0,  USE  *0 

IF  overflow 

NO  OVeRFLOW/UNdeRELOW 

IF  uF  FORCE  SIGN  TO  0 EXCEPT  -ISO 


IF  OF  FORcE  SIGN  TO  1 


a ,197753906  I,E,  THE  BIAS  SCAlED 
SCALES  MPAC,  ♦!  BY  SFTEMPl,  5FTEMP2, 

Assumes  point  between  hi  and  lo  parts 
Op  spcoN,  sHipTS  Results  left  by  ia, 

(By  taking  results  from  MPAC+1,  MPAC+2) 


TOO  large  a load 


Returns  if  no  of/uf 


OPTICS  scaling  routine 


Reject  Negative  input 
ditto 

range  iS  90  deg 
subtract  bias 

MuLt  BT  100  ! 45  B-2 
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1360 

04,2774 

02746 

0 

ADRES 

DEGC0N2 

1361 

04,2775 

3 7633 

0 

CAP 

BlTlZ 

1362 

04,2776 

6 0141 

0 

AD 

MPAC  4.1 

1363 

04,2777 

0 3044 

1 

TC 

2R0UND  +2 

1364 

04,3000 

0 2712 

1 

TC 

DEQ1NSF2 

1365 

04,3001 

0 7062 

1 

dPINSF 

Tc 

dMp 

1366 

04,3002 

00107 

1 

ADRES 

SPTEMPl 

1367 

04,3003 

56  142 

0 

XCH 

MPAC  *2 

1368 

04,3004 

6 0000 

1 

DOUBLE 

1369 

04,3005 

54  142 

1 

TS 

MpAC  *2 

1370 

04,3006 

3 7653 

0 

CAP 

Zero 

1371 

04,3007 

6 0141 

0 

AD 

MPAC  *1 

1372 

04,3010 

0 3044 

1 

TC 

2R0UND  +2 

1373 

04,3011 

0 3053 

1 

TC 

TE5T0FUF 

1374 

04,3012 

50  124 

0 

INDEX 

mixbr 

1375 

04,3013 

0 3013 

0 

TC 

♦ 0 

1376 

04,3014 

0 3024 

1 

Tc 

DPI  NORM 

1377 

04,3015 

3 0103 

0 

CA 

DECOUNT 

1378 

04,3016 

6 0131 

1 

DPiNCOM 

AD 

NOUNADD 

1379 

04,3017 

54  002 

1 

TS 

Q 

13g0 

04,3020 

56  141 

0 

XCH 

MpAC  ♦! 

1381 

04,3021 

50  002 

0 

INDEX 

Q 

1382 

04*3022 

54  001 

1 

TS 

1 

1383 

04,3023 

0 2734 

0 

tc 

ENDsCALE 

1384 

04,3024 

3 7653 

0 

DPiNORM 

CAP 

Zero 

1385 

04,3025 

0 3016 

0 

TC 

DPINCOM 

1386 

04,3026 

0 7062 

1 

DPINSPZ  TC 

DMP 

1387 

04,3027 

00107 

1 

ADRES 

SFtEMPI 

1388 

04,3030 

0 3032 

0 

TC 

TPLEPT7 

1389 

09*3031 

0 3003 

1 

TC 

DPINSF  *Z 

I3q0 

04*3032 

56  002 

0 

TPLEFT7 

XCH 

0 

1391 

04,3033 

54  110 

0 

TS 

SPyEMPZ 

1392 

04,3034 

3 6162 

1 

CAp 

SIX 

1393 

04  3035 

54  107 

0 

LEPyTCOM 

TS 

SFTEMPI 

1394 

0?,3036 

0 4532 

1 

TC 

TP5L1 

1395 

04,3037 

10  IO7 

0 

CCS 

SPTEMPl 

1396 

04,3040 

0 3035 

1 

TC 

LEFT7C0M 

1397 

04,3041 

0 OllO 

1 

Tc 

SpTEMP2 

1398 

04,3042  56  141  0 2RqUnD 

XCH  mPAC 

*1 

1399 

04*3043  6 0000  1 

DOUBLE 

USER'S  OWN  pAGE  NO*  38 


round  as  in  deginsf 


SCALES  MPAc*  MPAc  *1  BY  SPTEMpl. 
SPTEMP2,  STORES  LOW  PART  OP  RESULT 
IN  (E  SUBK)  ♦!  OR  E*1 


returns  if  no  OP/uF 


MIXEDNOUN 
MjXED 
E SUBK 


NORMAL 

E 


PLACE  LOW  PART  IN 
(E  SUBK)  *1  MIXED 
F +1  NORMAL 


assumes  point  BETWEEN  BITS  7"8  OF  HIGH 
part  of  sF  CONST*  DPINSF2  SHIFjS  RESULTS 
LEFT  BY  7,  ROUNDS  MPAC+2  iNTO  MpAC*l, 


OPERATES  ON  MPAC*  MPAC*1*  MPAC+2 
CANy  UsE  L FOR  REyURN,  jPs>-l  UsEs  L. 
LefT  BT  7 
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pinball  game  buttons  and  lights 


USER'S  Own  page  no.  39 


lAOO 

04 1 3044 

54  141  1 

TS 

MPAC  ♦! 

I4OI 

04.3045 

0 0002  0 

TC 

a 

IF  MPAC+1  DOES  NOT  OF/UF 

1402 

04.3046 

6 0140  1 

AD 

MPAC 

1403 

04.3047 

54  140  0 

TS 

MPAC 

I4O4 

04.3050 

0 0002  0 

TC 

Q 

IF  MPAC  DOES  not  OF/UF 

1405 

04.3051 

54  105  1 

TS 

OVFIND 

1406 

04.3052 

0 0002  0 

2RNDEND  TC 

Q 

1407 

04.3053 

10  105 

1 

TESTqFUF  CCS 

oVFInD 

returns  if  no  oF/UF 

1408 

04.3054 

0 3255 

0 

TC 

dspalarm 

OF 

1409 

04.3055 

0 0002 

0 

TC 

0 

1410 

04.3056 

0 3255 

0 

TC 

dspalarm 

UF 

275690 
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pinball  game  buttons  and  lights  USER'S  OWN  PAGE  NO,  40 

P1411  MONITOR  ALLOWS  OTHER  KEYBOARD  ACTIVITY,  iT  IS  ENDED  BY  VERB  TERMINATE, 

R1412  any  NvSUB  call  THAT  PASSES  THE  DSPLOCK,  OR  ANOTHER  MONITOR, 

R1413  MONIToR  action  IS  SUSrEnDED,  BUT  NoT  EnDED,  By  AnY  KEYBqArD  ACTIqN, 

R1414  EXCEPT  error  LIGHT  RESET,  IT  BEGINS  AGAIN  WHEN  KEY  RELEASE  IS  PERFORMED. 

R14I5  monitor  saves  the  NOuN  AND  APPROPRIATE  DISPLAY  VERB  IN  MONsAvE,  It  SAVES 
R1416  NOuNCADR  IN  MONSAVEl,  IF  NOUN  s MACHINE  CADR  TO  BE  SPECIFIED,  BIT  15  Op 
R1417  MONSAvEI  IS  THE  KILL  MONITOR  SIGNAL  (KILLER  BIT), 

R1418  MONSAVE  INDICATES  IF  MONITOR  IS  ON(+=ON,  +OsOFF) 

R14I9  IF  MONSAVE  IS  ♦,  MONITOR  ENTERS  NO  REQUEST,  BuT  TURNS  KILLER  BIT  OFF, 

R1420  IF  MONSAVE  IS  +0,  MONITOR  ENTERS  REQUEST  AND  TURNS  KIlL^R  BIT  OFF, 

R1421  NvSUB  and  vB'TERMINAtE  TURN  KILL  MONITOR  BIT  ON, 

R1422  IF  KiLLeR  BIT  IS  ON,  MONReQ  eNTeRS  NO  fURThER  REOUeSTS,  ZeROS  MONSAVe 

RI423  AND  MONSAVEl  (TURNING  OFF  KILLER  BIT), 


Ri424  monitor  DOSENT  test  for  mates  since  NVSUB  CAN  HANDLE  INTERNAL  MATBS  NOw 
1925  05,3077  SETLqC  EnDRUTIn 


192* 

05,3077 

4 763O  1 

MONITOR 

cs 

BIT15 

1427 

05,3100 

7 0657  1 

mask 

NqUnCADR 

142r 

05,3101 

54  I4l  1 

MONITl 

TS 

MPAC  ~ ^ 

1429 

05,3102 

3 3401  1 

CAP 

L0W6 

1430 

05,3103 

7 0641  0 

MASK 

verbreg 

1431 

05,3104 

0 4456  1 

TC 

LEFT5 

1432 

05,3105 

54  022  0 

TS 

CYL 

1433 

05,3106 

56  022  1 

xch 

CYL 

1434 

05,3107 

6 0642  1 

AD 

NOUNREQ 

1435 

05,3Il() 

54  140  0 

TS 

MpAC 

1436 

05,3111 

4 0677  0 

CS 

grablock 

U37 

05,3112 

6 '^645  1 

AD 

TWO 

1438 

05,3113 

10  000  0 

CCS 

A 

1439 

03,3114 

0 4633  0 

Tc 

RgLoSPl 

1440 

05,3115 

0 3121  0 

TC 

♦ 4 

1441 

05,3117 

LOC 

*1 

1442 

05,3117 

3 7653  0 

CAF 

ZERO 

1443 

05,3120 

54  652  1 

TS 

dsplock 

1444 

05,3121 

0 0004  0 

INHINT 

1445 

05,3122 

10  660  0 

CCS 

MONSAVE 

1446 

05,3123 

0 3130  0 

Tc 

♦ 5 

1447 

05,3124 

3 7646  1 

CAF 

ONE 

1448 

05,3125 

0 4251  0 

TC 

waitlist 

1449 

El 

EBANKs 

dspcount 

U5O 

0s,3l26 

03134  1 

2CADR 

MONREQ 

C1950 

05,3127 

12001  0 

1451 

05,3130 

52  141  1 

DXCh 

MPAC 

TEMP  STORAGE 


temp  storage 

NEITHER  CASE  SEARCHES  LIST, 


GRAB1-OcK*0,1,  *0  INTO  pSPLOcK  ANp 

turn  off  key  rise  light, 

GRABL0CK»2,  +0  INTO  DSPLOCK  AND 

leave  key  rlse  light  Alone 


IF  MONSAVe  WAS  ♦,  NO  ReQUeST 
IF  MONSAVE  WAS  0,  REQUEST  MONREQ 


PLACE  MONjTOR  Verb  ANd  noun  jNTO  MONSAVe 
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pinball  game  buttons  and  Lights 


USER'S  OWN  page  NO,  Al 


1A52 

05  3131 

1AS3 

05f3132 

U5A 

0sf3133 

1A55 

05f3134 

1A56 

05,3135 

1457 

05i3136 

1458 

O5.3I37 

1459 

05f3140 

1460 

05f3141 

1461 

05f3142 

1462 

05f3143 

1463 

1464 

05f3144 

C1464 

05f3145 

1465 

05,3146 

1466 

05,3147 

1467 

1468 

05,3150 

C1468 

05,3151 

1469 

05,3152 

1470 

05,3153 

1471 

05,3154 

1472 

05,3155 

1473 

05,3l56 

1474 

05,3157 

1475 

05,3160 

1476 

05,3161 

1477 

05,3162 

U78 

05,3163 

1479 

05,3164 

1480 

05,3165 

U81 

05,3166 

1482 

05,3167 

1483 

05,3170 

1484 

05,3171 

1485 

05,3172 

I486 

05,3173 

1487 

05,3174 

1488 

05,3175 

1489 

05,3176 

52  661 

1 

DxCH 

MqNSAvE 

0 0003 

1 

RELiNT 

0 0122 

0 

TC 

ENTRET 

0 4526  1 

MONReQ 

Tc 

LOdSAMPT 

10  66l  1 

CCS 

MqNSAvEI 

0 3142  0 

TC 

*4 

0 3142  0 

TC 

*3 

0 3153  0 

TC 

KILLMON 

0 3153  0 

Tc 

KILLMON 

3 3157  1 

CAF 

MONDEL 

0 425l  0 

TC 

WAiTLiST 

El 

EBANKa 

DSPCOUNT 

03134  1 

2CA0R 

MONREQ 

12001  0 

3 4502  1 

CAF 

chrprio 

0 4l3l  0 

TC 

NOVAC 

El 

EBANKa 

DsPCOuNT 

03160  0 

2CADR 

MONDO 

12001  0 

0 4321  0 

TC 

TASKOvER 

3 7653  0 

killmqn 

caf 

ZERO 

54  660  0 

TS 

MONSAvE 

54  66l  1 

TS 

MONSAVEl 

0 A321  0 

TC 

TASKOVER 

00194 

0 

MONDEL 

OCT 

I44 

10  661 

1 

MONDO 

CCS 

MoNSaVEI 

0 3165 

0 

TC 

♦ 4 

0 3165 

0 

TC 

♦ 3 

0 9205 

1 

TC 

ENDOFJOB 

0 4205 

1 

TC 

EnDoFJoB 

10  652 

1 

ccs 

oSPLOcK 

0 3212 

0 

TC 

MONBUSY 

3 3401 

1 

CAF 

L0W6 

7 0660 

0 

Mask 

MONSaVe 

54  107 

0 

TS 

NVTEMP 

0 4372 

0 

TC 

NVSUBMoN 

0 4205 

1 

Tc 

eNdOFJOb 

3 3210 

1 

CAF 

MONMAsK 

7 0660 

0 

MASK 

monsave 

0 444T 

1 

TC 

RIGHTS 

7ER0  the  kill  monitor  bit 


called  by  waitlist 

time  is  snatched  in  RuPT  for  NOuN  65 
IF  killer  Bit  e Of  enter  requests 

if  RilLER  bit  • Of  enter  requests 

IF  KILLEr  bit  ■ If  NO  rEqUESTS 

IF  KILLeR  bit  b If  NO  ReQUeSTS 

enter  WAiTLiST  bequest  for  MONReQ 


ENTER  EXEC  REQUEST  FOR  MONDO 


zero  monsave  aNd  turn  killer  bit  off 
turn  off  Kill  monitor  bit. 


FOR  1 SEC  MONITOR  INTERVALS 


Called  by  exec 

IF  KILLER  BIT  = °*  CONTINUE 
IF  KILLER  BIT  s Of  CONTINUE 
IN  CASE  terminate  CAME  SINCE  LAST  MoNrEQ 
IN  CASE  terminate  CAME  SinCE  LAST  MqNrEq 

NVSUB  IS  BUSY 

nvsub  is  available 


pLACE  noUN  InTo  NOUNrEG  A|\jD  DlSpLAY  IT 
IN  case  of  alarm  pURING  dISPLAY 

Change  monitor  verb  to  display  verb 
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pinball  game  Buttons  and  lights 


USER'S  OmN  page  NO.  42 


1490 

05.3177 

54  020 

1 

TS 

CYR 

1491 

05.3200 

56  020 

0 

XCH 

CYR 

1492 

05,3201 

54  641 

0 

TS 

VERBREG 

1493 

05,3202 

3 3211 

0 

CAF 

MONBACK 

set  return  TO  PASTEVB  AFTER  DATA  DISPLAY 

1494 

05,3203 

54  122 

1 

TS 

ENTRET 

1495 

05,3204 

4 7630 

1 

cs 

BIT15 

1496 

05,3205 

7 0661 

1 

MASK 

MQNSAVeI 

PUT  ECADR  INTiS  MPAC  *2.  INTMCTBS  WILL 

1497 

05,3206 

54  142 

1 

TS 

MpAC  +2 

DISPLAY  IT  and  SET  NOUNCADR,  NOUNADD, 

1498 

0?,3207 

0 2037 

1 

ENDMONDO 

TC 

TESTNN 

EBANK. 

1499 

4347 

SETLOC 

ENDT4FF 

1500 

4347 

3 4355 

0 

pastevb 

CAF 

MIDSIX 

1501 

4350 

7 0660 

0 

MASK 

MONSAVE 

1502 

4351 

54  107 

0 

TS 

NvTEMP 

PLACE  monitor  verb  INTO  VERBREG  AND 

I5O3 

4352 

0 437Z 

0 

TC 

NVSUBMON 

DISPLAY  jT, 

1504 

4353 

0 4354 

1 

TC 

♦1 

IN  CASE  OF  alarm  DuRING  DISPLAY 

1505 

4354 

0 4205 

1 

ENDPASTE 

TC 

ENDOFJOB 

1506 

4355 

07700 

1 

MIDSIx 

octal 

07700 

1507 

1508 

05,3210 

05,3210 
00700  0 

MOnMASK 

SETLOC 

OCT 

ENDMONDO  +i 
700 

I5O9 

05,32U 

04347  0 

MONBACK 

ADRES 

PASTEVB 

1510 

05,3212 

0 4522  0 

MONBUSY 

TC 

RELDSpON 

turn  key  RELEASE  LIGHT 

1511 

05,3213 

0 4205  1 

TC 

ENDOFJOB 

R1512 

(jSPFMEM  IS  USEp  TO  r 

jISPLAY  (IN 

octaL)  any  fixed  register. 

R1513 

IT  Is  USED  WITH  NOu? 

( 8 MACHINE 

cadr  to 

Be  specified. 

THE  FCADR  OF  THE 

R1514 

desired  location  is 

THEN  punched  IN,  IT 

HANDlES  F/F  I 

1 FCADR  4000.7777) 

I5l5 

05,3214 

3 4444  1 

DSPFMEM  CAF 

RlDl 

IF  F/F,  DAtACALL  USES 

BANK  02  OR  03, 

1516 

05,3215 

54  637  1 

TS 

dspcount 

I5I7 

05,3216 

3 0657  0 

CA 

NOUNCADR 

ORIGINAL  FCADR  LOADED 

STILL  IN  NOUNCADR. 

1518 

05,3217 

0 4116  0 

TC 

DAtACALL 

1519 

05,3220 

0 3222  0 

tc 

DSPOCTWD 

1520 

05,3221 

0 4205  1 

TC 

ENDOFJOB 

275690  VUL  SYSTeM  pOR  0LK2!  ReViSjON  0 Op  PROgRAM  ReTRED'*^  BY  NASA  2021100 


JUL  9«  1965  (MAiN)  PAGE  177 


pInBALL  game  buttons  And  lights  USEr«S  own  page  no.  A3 

P1521  DsPDECwD  CONVERTS  CjKPAC)  AND  C(MPAC  ♦1)T0  A SIGN  AND  5 CHAr  DECIMAL 
R1522  spARjINQ  IN  LOC  SPECIFIED  IN  DsPCOUNy 


1523 

04,3057 

SETIOC 

TESTOFUF  +4 

1524 

04,3057 

56  002 

0 

DSPDECWD 

XCH 

Q 

USES  SHqRTmP  THR 

oUGHoUT 

1525 

Oa,3C60 

54  101 

0 

TS 

woret 

CANT  USE  L FOR  R 

eturn.+on  uses  l 

1526 

04,3061 

10  140 

0 

CCS 

MpAC 

1527 

04,3062 

0 3071 

1 

TC 

♦ 7 

1528 

04,3063 

0 3071 

1 

Tc 

*6 

1529 

04,3064 

6 7646 

1 

ad 

ONE 

1530 

04,3065 

54  140 

0 

TS 

MpAC 

1531 

04,3066 

0 2313 

1 

TC 

-ON 

1532 

04,3057 

4 0l4l 

1 

cs 

MPAC  +1 

1533 

04,3070 

0 3073 

0 

TC 

♦ 3 

1534 

04,3071 

0 2273 

0 

Tc 

♦ ON 

1535 

04,3072 

56  I4I 

0 

XCH 

MPAC  ♦! 

1536 

04,3073 

6 3132 

1 

AD 

DECroUND 

1537 

04,3074 

54  14l 

1 

TS 

MPAC  *l 

l53g 

O4.3O75 

3 7653 

0 

CAF 

ZERO 

1539 

04,3076 

6 0140 

1 

AD 

MPAC 

1540 

04,3077 

54  140 

0 

TS 

MPAC 

I54I 

04,3100 

0 3104 

1 

TC 

+4 

1542 

04,3101 

3 7626 

1 

CAF 

POSMAX 

1543 

04,3102 

54  I4O 

0 

TS 

MPAC 

I544 

04,3103 

54  I4I 

1 

TS 

MPAC  *l 

1545 

04,3104 

3 7644 

0 

CAF 

FOUR 

1546 

04,3105 

54  123 

0 

dSPdCWdI 

IS 

WqCNT 

I547 

04,3106 

3 4511 

0 

CAF 

BINCON 

1548 

04,3107 

0 7257 

0 

TC 

SHORtMP 

1549 

04,3110 

50  I4O 

1 

TRACEl 

INDEX 

MPAC 

I55O 

04.3111 

3 4333 

0 

CAF 

RELTAB 

1551 

04,3112 

7 4473 

1 

MASK 

LOWS 

1552 

04,3113 

54  no 

0 

TS 

CODE 

I553 

04.3114 

3 7653 

0 

CAF 

ZERO 

1554 

04,3115 

56  142 

0 

XCH 

MpAC  *2 

1555 

04,3116 

56  141 

0 

XCH 

MPAC  +1 

1556 

04,3117 

54  I4O 

0 

TS 

MPAC 

1557 

04,3120 

56  63? 

0 

XCH 

OsPCOuNf 

1558 

04,3121 

54  127 

1 

TRaceIS 

TS 

COUNT 

1559 

04.3122 

10  000 

0 

CCS 

A 

DECREMENT  DSPCOUNT  EXCEPT  AT  ♦0 

1560 

04,3123 

54  637 

1 

IS 

DsPCOUNt 

1561 

04,3124 

0 3157 

1 

tc 

dspin 

1562 

04  3125 

10  123 

0 

CCS 

WOCNT 

1563 

04,3126 

0 3106 

0 

Tc 

DSPOCWDl 

1564 

04,3127 

4 45O6 

1 

CS 

voi 

1565 

04,3130 

54  637 

1 

TS 

DsPCOuNT 

1566 

04,3131 

0 0101 

1 

TC 

WdReT 

i567 

0A,3i32 

02A76 

0 

DECROUND 

OCT 

02^76 

275690 


YUL  SYSTEM  FOR  BLK2S  REVISION  0 oF  PrOGrAM  rETrEDAA  BY  NASA  2021100 


JUL  9*  1965  (MAIN)  PAGE  173 


pinball  game  Buttons  and  lights  user's  o^n  page  no.  aa 


R1568  DSP2DEC  CONVERTS  C(MPAC)  AND  C(MPAC*1)  iNTO  A SigN  AND  10  ChAR  DECiMAL 
Rl569  starting  IN  THE  LOC  SPECIFIED  IN  DSPCOuNt. 


1570 

0A,3133 

56  002 

0 

DSP2DEC 

XCH 

0 

1571 

0A.313A 

5A  lOl 

0 

TS 

WDRET 

MUST  USE  SAME  RETURN  AS  DSPDECWD 

1572 

0A.3135 

3 7653 

0 

CAF 

ZERO 

1573 

0A.3136 

5A  110 

0 

TS 

CODE 

157A 

OA.3137 

3 6165 

0 

CAF 

three 

1575 

0A,31A0 

0 32A1 

0 

TC 

IIDSPIN 

-R2  OFF 

1576 

0A,31A1 

3 76AA 

0 

CAF 

FOUR 

1577 

0a,31A2 

0 32A1 

0 

TC 

IIDSPIN 

♦R2  OFF 

1578 

0A.31A3 

10  lAO 

0 

CCS 

MPAC 

1579 

0A,31AA 

0 315A 

1 

TC 

«8D 

1580 

0A.31A5 

0 315A 

1 

TC 

♦ 7 

1581 

0A,31A6 

6 76A6 

1 

AD 

ONE 

1582 

0A.31A7 

5A  lAO 

0 

TS 

MPAC 

1583 

0A.3150 

0 2313 

1 

TC 

-ON 

1584 

04*3151 

A 0l4l 

1 

cs 

MPAC  *1 

1585 

0A,3152 

5A  lAl 

1 

TS 

MpAC  ♦! 

1586 

OA.3153 

0 3155 

0 

Tc 

.2 

1587 

0A.315A 

0 2273 

0 

TC 

♦ ON 

1588 

0A.3155 

3 AAA5 

0 

CAF 

r2D1 

1589 

0A,3156 

0 3105 

0 

END2DEC 

TC 

DSPOCWDl 

1590  05,3222  SETlqC  DSPFmEm  +6 

RlSgl  DSPOCTWD  DISPLAYS  C(A)  UPON  ENTRY  AS  A 5 CHAR  OCT  STARTING  IN  THE  DSP 

R1592  CHAR  specified  IN  DSPCOuNt.  It  STOPS  AFtEr  5 CHAR  HAVE  BEEN  DISPLAYED, 


1593 

05*3222 

159A 

05,3223 

1595 

05,322A 

1596 

q5,32Z5 

1597 

05,3226 

1598 

05,3227 

1599 

05,3230 

1600 

05,3231 

UOl 

05,3232 

1602 

05,3233 

1603 

05,323A 

1&0A 

05,3235 

I6O5 

05*3236 

1606 

05,3237 

1607 

05,32A0 

uos 

05*32a1 

I6O9 

05,32A2 

1610 

05,32A3 

l6ll 

05,32AA 

1612 

05,32A5 

5A  022 

0 

DSPOCTWD 

TS 

CYL 

56  002 

0 

XCH 

0 

5A  101 

0 

TS 

WDRET 

3 7631 

1 

CAF 

BITIA 

26  637 

1 

ads 

DSPCOUNT 

3 76AA 

0 

CAF 

FOUR 

5A  123 

0 

WDAGAIN 

TS 

WDCNt 

A 0022 

0 

CS 

CYL 

A 0022 

0 

CS 

CYL 

A 0022 

0 

Cs 

CYL 

A 0000 

0 

CS 

A 

7 7652 

0 

Mask 

OSPMSK 

5O  000 

1 

INDEX 

A 

3 A333 

0 

CAF 

REL|A8 

7 AA73 

1 

Mask 

LOWS 

5A  no 

0 

TS 

CODE 

56  637 

0 

XCH 

DSpCo^nT 

5A  127 

1 

TS 

COUNT 

10  000 

0 

CCS 

A 

5A  637 

1 

TS 

DsPCOUNt 

MUST  USE  same  RETURN  AS  DSP2BiT. 
TO  BLANK  SIGNS 


decrement  DSPCOUNT  EXCEPT  AT  ♦O 
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pInBall  game  buttons  And  lights 


USEr'S  oWn  pAGE  NO*  A5 


l6l3 

05.3246 

0 4102  0 

TC 

POSTJuMP 

1614 

05.3247 

11247  0 

CADR 

DsPOCtIN 

1615 

05.3250 

10  123  0 

OCTBACK 

CCS 

WdCNT 

l6  l6 

O5.325I 

0 3230  0 

TC 

WDAGAIN 

I6I7 

05.3252 

4 45O6  1 

DjPLV 

Cs 

VDl 

1618 

05.3253 

54  637  1 

TS 

dspcount 

1619 

05,3254 

0 0101  1 

TC 

WDRET 

1620 

7652 

dspmsk 

8 

Seven 

R1622 

DSP2BIT  DiSPi  AYS 

C(A)  UPON  ENTRY  AS  A 2 

CHAR  OCT 

beginning  in  the 

R1623  LOC  SPECIFIED  IN  OsPCOUNT  BY  PRE  CYCLING  RIGHT  C(A)  AND  USING  THE  LOGIC 
R162A  OF  tHE  5 CHAR  CCjAL  DI5PLAY 


1625 

05.3255 

54  020 

1 

D5P2BIT  TS 

CYR 

1626 

05.3256 

56  002 

0 

XCH 

0 

1627 

05.3257 

54  101 

0 

TS 

WDRET 

1628 

05.326q 

3 7646 

1 

CAF 

ONE 

1629 

05.3261 

54  123 

0 

TS 

WDCNT 

1630 

05.3262 

4 0020 

1 

CS 

CYR 

1631 

05.3263 

4 0020 

1 

Cs 

CYR 

1632 

05.3264 

56  020 

0 

XCH 

CYR 

1633 

05.3265 

54  022 

0 

TS 

CYL 

1634 

05.3266 

0 3235 

0 

TC 

WDAGAIN 

R1635  FOR  DSPIN  PLACE  0/25  OCT  I^TO  COuNt,  5 BIT  RELAy  CODE  INTO  CODE,  BOTH 

R1636  ARE  DESTROYED,  IF  BITIA  OF  COUNT  IS  1,  SIGN  IS  BLANkEO  WITH  LEFT  ChAR, 

R1637  for  OSPINi  PLACE  0.1  INTO  BHu  OF  CODE.  2 INTO  COUNT.  REL  ADDRESS  OF 
R1638  DSPtAB  ENtRY  INTO  DsREL. 


1639 

04.3157 

SETLOC 

END2DEC 

1640 

04,3157 

56  002  0 DSpiN 

XCH 

0 

1641 

04.3160 

54  100  1 

TS 

DSeXIT 

1642 

04,3161 

3 4473  0 

CAF 

L0W5 

1643 

04,3162 

7 0127  1 

MASK 

COUNT 

1&44 

04.3163 

54  O2I  0 

TS 

SR 

1645 

04.3164 

56  021  1 

XCH 

SR 

1646 

04,3165 

54  125  0 

TS 

DSREl 

l64y 

04,3166 

3 7646  1 

CAF 

BITl 

1648 

04,3167 

7 0127  1 

MAsK 

CouNj 

1649 

04,3170 

10  000  0 

ccs 

A 

1650 

04,3171 

0 3173  1 

Tc 

42 

1651 

04,3172 

0 3203  0 

tc 

DsPINl 

1652 

04,3173 

56  110  1 

XCH 

CODE 

1653 

O4.3I74 

0 4465  1 

TC 

SLEFT5 

TO  BLOCK  NUMERICAL  CHARACtERs.  CLEARj, 

And  siqNs  afteR  a completed  display. 


CANT  use  L as  return,  UPDATNN  USES  L. 


cant  use  l For  return.  since  many  of  the 
routines  calling  dspin  usg  L AS  Return, 


Left  if  count  is  odd 
right  if  COuNt  Is  EvEN 

DOES  NOT  USE  CYL 


27S690 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

A1661 

A1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1*78 

1679 

1680 

1681 

1682 

1683 

l6s4 

1685 

1686 

I687 

1688 

1689 

I69O 

1691 

R1692 

RI693 

1694 

l6q5 

1696 

1697 

16’8 
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pinball  game  buttons  and  lights 


USER'S  OWN  PAGE  NO.  46 


FqR  llOSpiN*  pUT  REL 
BITll  OF  CODE, 


04,3175 

54  110 

0 

TS 

CODE 

04,3176 

3 7631 

1 

CAF 

BIT14 

04,3177 

7 0127 

1 

MASK 

count 

04,3200 

10  000 

0 

CCS 

A 

04,3201 

3 7645 

1 

CAF 

TWO 

04,3202 

6 7646 

1 

AD 

one 

04,3203 

54  127 

1 

TS 

COUNT 

04,3204 

0 0004 

0 

DSPINl 

INHINT 

04,3205 

50  125 

1 

INDEX 

DSREL 

04,3206 

10  662 

1 

CCS 

DSPTAB 

04,3207 

0 3211 

0 

TC 

*2 

04,3211 

LOC 

♦ 1 

04,3211 

6 7646 

1 

AD 

ONE 

04*3212 

54  126 

0 

TS 

DSMAG 

04,3213 

50  127 

0 

index 

Count 

04,3214 

7 3235 

1 

MASK 

nSMSK 

04*3215 

0 0006 

1 

EXTEND 

04*3216 

60  110 

1 

SU 

Code 

04,3217 

0 0006 

1 

EXTeNd 

04*3220 

1 3233 

1 

BZF 

DSLV 

04,3221 

50  127 

0 

dfrnt 

INDEX 

Count 

04,3222 

4 3235 

1 

cs 

DSMSK 

04*3223 

7 0126 

0 

MASK 

DSMAG 

04,3224 

6 0110 

1 

AD 

CODE 

04,3225 

4 0000 

0 

CS 

A 

04,3226 

50  125 

1 

INqeX 

DSReL 

04  3227 

56  6*2 

0 

xch 

DSPTAB 

04,3230 

0 0006 

1 

EXTEND 

04,3231 

6 3233 

0 

BZMF 

DSLV 

04,3232 

24  656 

1 

INCR 

NOut 

04,3233 

0 0003 

1 

DSLV 

ReLiNT 

04*3234 

0 OlOO 

0 

TC 

DSEXIT 

04,3235 

00037 

0 

DSMSK 

OCT 

37 

04*3236 

O174O 

0 

OCT 

1740 

04*3237 

02000 

0 

OCT 

2000 

04,3240 

03740 

1 

OcT 

3740 

ADDRE5SS  DSpTAB 

Entry  intq  a,  i 

In  BIT! 

04,3241 

54  126 

0 

llDSpiN 

TS 

DSREl 

04,3242 

3 7645 

1 

CAF 

TWO 

04,3243 

54  127 

1 

TS 

COuNt 

04,3244 

56  002 

0 

XCH 

0 

04*3245 

54  100 

1 

TS 

DSEXIT 

B1T14  s 1,  blank  sign 

bitia  ■ 0,  leave  sign  alone 
+0  into  count  for  right 
+1  into  count  for  left (SIGN  LEFT  ALoNE) 
♦3  iNtO  count  for  left (TO  BLANK  SIGN) 


IF  ♦ 
IF- 


SAME 

MASK  WiTh  77740*76037*  OR  75777 


DSPTAB  entry  WAS  - 
DsPt*B  ENjRY  was  ♦ 


MUST  USE  SaMe  RETURN  AS  DSPiN 
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pinball  game  Buttons  and  lights  user's  °wn  page  no.  at 


1699 

04.3246 

0 3209 

1 

TC 

DSPjNl 

1700 

09.3247 

0 3157 

1 

dspqCtin  tc 

OSPIn 

Sq  dspqCtwd  DqESnT  use  SwCAll 

I7OI 

09.3250 

3 3252 

1 

CAF 

♦ 2 

1702 

09.3251 

0 9105 

1 

tc 

BANKJUMP 

1703 

09.3252 

13250 

1 

pNoSPOcT  CAdR 

OcTBACK 

R1704  DSpA|_ARm  finds  tc  nvsubend  in  entret  for  nvsub  initiated  routines. 
RI7O5  ABORT  WITH  01501. 

R1706  DsPALArM  finds  jC  ENDOFJOB  in  ENtREj  for  keyboard  INI-rlAjED  RO(jtINEs. 
R1707  DO  TC  ENTRET. 


1708 

09,3253 

3 9917 

1 

CHARALRM 

CAF 

ENDINST 

alarms  which  must  do  endofjobs 

come 

1709 

09.3259 

59  122 

1 

TS 

ENTRET 

HERE,  ALLOWS  ENTRET  TO  BE  TEMP 

erasable 

1710 

09  3255 

0 9512 

0 

DSPALARM 

TC 

falton 

turn  on  operator  error  light 

1711 

09.3256 

9 3265 

1 

cs 

NVSBfNDL 

I7I2 

09»3257 

6 0122 

0 

AD 

ENTEXIT 

1713 

09.3260 

0 0006 

1 

extend 

17131 

09.3261 

1 3263 

1 

BZf 

♦ 2 

NVSUB  iNiTjATeD.  ABORT 

17132 

q4,3262 

g 0I22 

g 

TC 

ENTExIT 

NOT  NysuB  initiated. 

17133 

09.3263 

0 9662 

l 

TC 

abort 

I7I39 

O9 .3269 

OI5OI 

1 

OCT 

01501 

17135 

09,3265 

0 9376 

1 

NySBENDL 

TC 

NySuBEND 

R1716  MMCHANQ  USES  NOuN  DISPLAy  uNtIL  ENtER.  THEN  It  USES  MODE  OISP. 

R1715  iT  goes  to  MODROUT  WITH  THE  NEW  M M CODE  IN  A.  BUT  NOT  DISPLAYED  IN 

R1716  M M LIGHTS. 


1717 

05,3267 

SETLOC 

DSP2BIT  +10D 

l7l8 

05*3267 

0 3302  0 MMChANG 

TC 

REOMM 

1719 

05,3270 

3 7653  0 

CAF 

ZERO 

1720 

09,3271 

56  692  1 

XCH 

NOUNREG 

I72I 

05*3272 

59  I9O  0 

TS 

MPAC 

1722 

05.3273 

3 9507  1 

CAF 

NDl 

17221 

05,3279 

59  637  1 

TS 

DSPCOUNT 

I723 

05*3275 

0 90*3  0 

TC 

bankcall 

1729 

05.3276 

10517  0 

CADr 

2BLANK 

1725 

05.3277 

3 0190  1 

CA 

MPAC 

I726 

05*3300 

0 9102  0 

TC 

POSTJUMP 

1727 

05,3301 

11255  0 

CADR 

MODROutB 

GO  jHru  standard  LOC 
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Pinball  game  buttons  and  Lights  user's  own  page  no,  ^>8 


1728 

04,3255 

modroutb 

z 

dspalarm 

*»FIX  LATER"* 

1729 

05,3302 

4 0002 

1 

REQMM 

CS 

0 

1730 

05,3303 

54  653 

0 

TS 

REQRET 

1731 

05,3304 

3 4507 

1 

CAF 

NDl 

1732 

05,3305 

54  637 

1 

TS 

DSPCOUNT 

1733 

05,3306 

3 7653 

0 

CAF 

ZERO 

1734 

05,3307 

54  642 

0 

TS 

NOuNREG 

1735 

05,3310 

0 4063 

0 

TC 

BANKCALL 

1736 

05,3311 

10517 

0 

CADR 

2BLANK 

1737 

05,3312 

0 4543 

1 

TC 

flashon 

1738 

05,3313 

0 0122 

0 

TC 

ENTeXIT 

Rl7<il 

R1742 

R1743 

R17A4 

r1745 

R1786 


VBrQEXEC  enters  request  to  exec  for  any  address  WiTh  any  PRiORiTy. 
IT  does  ENDOFJOB  after  entering  request,  display  syst  is  released, 

IT  ASSUMES  NOUN  25  HAS  BEEN  PRElOADED  WITH 

component  1 PRI0RITY(BITS  lO-U)  BIT1*0  FOR  NOVACt  BIT1»1  FOR  FiNDVAC, 
component  2 JOB  ADrES  (12  BIT  ) 
component  3 BBCON 


1747 

05,3314 

1748 

05,3315 

1749 

05,3316 

1750 

05,3317 

1751 

05,3320 

1752 

05,3321 

1753 

05,3322 

1754 

05,3323 

1755 

05,3324 

1756 

05,3325 

1757 

05,3326 

1758 

05,3327 

1759 

05,3330 

1760 

05,3331 

1761 

05,3332 

1762 

05,3333 

1763 

05,3334 

1764 

05,3335 

1765 

05,3336 

1766 

05,3337 

3 7646 

1 

VBRQExEC 

CAF 

BITl 

7 0706 

1 

MaSk 

dsptemi 

10  000 

0 

CCS 

A 

0 3336 

1 

TC 

SeTVAC 

3 4476 

0 

CAF 

TcNOVAc 

54  140 

0 

REOExl 

TS 

MpAC 

4 7646 

0 

CS 

BiTl 

7 O7O6 

1 

MASK 

DSPTeMI 

54  144 

1 

TS 

MPAC  +4 

0 4610 

1 

rEqUESTC 

TC 

rELDSP 

3 4417 

1 

CA 

ENdINST 

54  143 

0 

TS 

MpAC  *3 

0 0006 

1 

EXTEND 

3 0,10 
52  142 

1 

DCA 

DSPTEMI  *1 

1 

DXCH 

MpAC  +1 

3 0144 

0 

CA 

MPAC  +A 

0 000<» 

0 

INHINT 

0 0140 

1 

TC 

MpAC 

3 4501 
0 3321 

1 

1 

SeTVAc 

caf 

TC 

Tcf INpVc 
REQExl 

IF  BiTl  » 1*  FInDVAC 

IF  BITI  = 0,  nOVAC 

TC  NOyAC  OR  tC  FlNDyAC  INTO  MpAC 


PRIO  INTO  MPAC*4  AS  A TEMP 


TC  ENDOFJOB  INTO  MpAC+3 

JOB  ADRES  INTO  MPAC+l 
BBCON  INtO  MpAC+2 
PRiO  iN  A 


R1767  VBRQWAIT  tNTeRS  RcQUeST  TO  WAITLIST  pOR  ANY  AddReSS  WITH  ANY  DeLAY, 

R1768  IT  Does  ENDOFJOB  after  entering  request, display  SyST  is  released. 

R1769  iT  ASSUMES  NOUN  26  HAS  BEEN  PREiOADED  WITH 
R1770  component  1 DELAY  (LOW  BITS) 

R1771  component  2 y^SK  ADrEs  (12  Bit) 

R1772  component  3 BBCON 
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pinB;(Ll  Game  buttons  aND  lights 


USERtS  Own  PaGE  no.  A9 


1773 

05,3340 

3 4477 

1 

VBRqWAIT 

CAF 

TCWAlT 

1774 

05,3341 

54  140 

0 

TS 

MpAC 

TC  waitlist  into  MPAC 

1775 

05,3342 

3 O7O6 

0 

CA 

DsPtEMI 

time  delay 

1776 

05,3343 

0 3324 

1 

endrqwt 

TC 

requestc  -1 

R1777  REQUESTC  Wll-L  PUT  TASK  ADRES  INtO  MPAC*l,  BBCON  iNjO  MPAC+2, 

R1778  TC  ENDOFJOB  INTO  MpAC*3,  iT  WiLL  TAKE  TiME  DELAY  OUT  OF  MpAC+4  AND 
Rl779  leave  it  in  A,  INHinT  AND  TC  MPAC, 


I779I 

04,3266 

SETLOC 

NVSBENDL  +1 

1780 

04,3266 

3 7646  1 VBpROC 

CAF 

ONE 

proceed  WljHOUy 

DAfA 

1781 

04,3267 

54  654  1 

TS 

LOADSTaT 

I782 

04*3270 

0 46lO  1 

TC 

RELDSP 

1703 

04,3271 

0 4547  0 

TC 

flashoff 

1784 

04,3272 

0 3400  0 

TC 

RgCALTST 

See  if  theRe  is 

ANY  Recall  from  eNdidle 

1785 

04,3273 

0 

4400 

1 VBTeRM 

TC 

KiLMONON 

TURN 

ON  kill  MONITOR  BIT 

1786 

04,3274 

4 

7646 

0 

cs 

ONE 

1787 

04,3275 

0 

3267 

1 

TC 

VBPROC  *1 

TERM 

VERB  SETS  LOADSTAT  NEG 

R1780  Flash  is  turmED  off  o^ly  by  proceed  without  data,  terminate,  e^d  of  l°ao 


R1789  vBrElDSp  turns  qFF  RELEASE  DiSpLAY  SYSTEM  LIGHT (AnD  SEARCHES  LIST  ONLY 
R1790  IF  THIS  LIGHT  wAS  TURNED  ON  By  NYSU^USY) , AND  TURNS  OFF  UpACT  LIGHT. 


1791 

04,3276 

4 7644 

1 

VBRELDSp  CS 

BIT3 

I7g2 

04,3277 

0 0006 

1 

EXTEND 

1793 

04,3300 

03  Oil 

1 

WAND 

DSALMOUT 

TuRN  OFF 

upact  light 

1794 

04,3301 

0 4610 

1 

TC 

relosp 

searches 

List 

1795 

04*3302 

0 4205 

1 

TC 

ENDOFJOB 

RI796 

BUMP  SHIFTS  WORD  DISPLAYED  IN 

R2  TO  R3* 

R1  TO 

R2.  IT 

blanks  R1. 

1797 

04,3303 

3 7225  0 

BUmp 

CAF 

FIVE 

R2D5 

1798 

04,3304 

54  637  1 

TS 

DSPCOUNT 

1799 

04,3305 

54  127  1 

TS 

COUNt 

1800 

04,3306 

3 7646  1 

CAF 

ONE 

Shift  data  of 

R2 

TO  R3,  R1  Tl 

isoi 

04,3307 

7 0127  1 

MASK 

COUNT 

1802 

04,3310 

56  127  0 

XCH 

couNt 

+ 0 INjO  COijNt 

IF 

even  (right 

1803 

04,3311 

54  021  0 

TS 

SR 

♦1  INTO  COUNT 

IF 

ODD  (LEFT) 
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pinb^ll  g*me  buttons  and  lights 


1804 

04,3312 

56  021  1 

XCH 

SR 

1805 

04,3313 

50  000  1 

INDEX 

A 

1806 

04,3314 

10  662  1 

CCS 

DSPtAB 

1807 

04,3315 

0 3317  1 

TC 

*2 

1808 

04,3317 

LOC 

*1 

1809 

04,3317 

6 7696  1 

AO 

one 

1810 

04,3320 

50  127  0 

INDEX 

CqUnT 

1811 

04,3321 

7 3235  1 

MASK 

dsmsk 

1812 

04,3322 

5O  127  0 

INDEX 

COUNT 

1813 

04,3323 

0 3324  1 

TC 

♦ 1 

18U 

04,3324 

0 3326  0 

TC 

♦ 2 

1815 

04,3325 

0 4447  1 

TC 

RIGHTS 

1816 

04,3326 

54  110  0 

TS 

code 

l8l7 

04,3327 

4 7225  1 

CS 

FIVE 

1818 

04,3330 

6 0637  0 

AD 

DsPCOuNt 

1819 

04,3331 

10  000  0 

CCS 

A 

1820 

04,3332 

6 7646  1 

AD 

ONE 

1821 

04,3333 

0 3335  1 

TC 

♦ 2 

1822 

04,3335 

LOC 

.1 

1823 

04*3335 

54  127  1 

TS 

COUNT 

1824 

04,3336 

0 3157  1 

TC 

DSpiN 

1825 

04,3337 

4 0637  1 

C5 

dSPcOUNT 

^826 

04,3340 

6 4444  1 

AD 

RlDl 

1827 

04,3341 

10  OOO  0 

CCS 

A 

1828 

04,3342 

56  637  0 

XCH 

DSPCOUNT 

1829 

04,3343 

6 7646  1 

AD 

ONE 

1830 

04,3344 

0 3304  0 

TC 

BUMP 

le3i 

04,3345 

3 7653  0 5WS6N 

CAF 

ZERO 

1832 

04,3346 

54  637  1 

TS 

DSPCOUNT 

1833 

04,3347 

6 3376  0 

Ad 

SWTab 

Ib34 

04,3350 

5O  000  1 

INDEX 

A 

1835 

04,3351 

10  662  1 

CCS 

DSPTAB 

1836 

04,3352 

0 3354  0 

Tc 

.2 

1837 

04,3354 

LOC 

.1 

1838 

04,3354 

6 7646  1 

AD 

one 

1839 

04,3355 

7 7634  0 

MASK 

BlTll 

18^0 

04*3356 

54  110  0 

TS 

CODE 

1841 

04,3357 

50  637  0 

Index 

DSrCoUnT 

1842 

04,3360 

3 3374  1 

caF 

SWTab 

1843 

04,3361 

0 3241  0 

TC 

IIDSPIN 

1844 

04,3362 

4 0637  1 

C5 

DSPCOUNT 

1bA5 

04,3363 

6 3376  0 

AD 

SWTAB 

1846 

04,3364 

10  000  0 

CCS 

A 

1847 

0A,3365 

56  637  0 

XCH 

DSPCOUNT 

I848 

04,3366 

6 7646  1 

AD 

ONE 

1849 

04,3367 

0 3346  0 

TC 

SWSGn 

1850 

04,3370 

3 4444  1 

caf 

ridI 

1851 

04,3371 

54  637  1 

TS 

DsPCOuNt 

1852 

04,3372 

0 2454  0 

Tc 

SbLANK 

JUL  9,  i965  (MAIN) 


PAGE  jSA 


USERiS  OWN  PaGE  NO.  50 
DSREL  IN  A 


DSMA6  IN  A 


even<right)  ok 
odd(left)  shift  right 


DSPCOuNt-5 
TO  prevent  -0 


Code  already  in  cqde 

OCT  l6 

DSPCOUNT  L/  OCT  16 
INCREMENT  DSPCOUNT 


-0.  DSPCOUNTs  OCT  l6.  DO  SIGN  SHIFT 
OcT  3 

PICKUP  ORDER  . DSRELs3t4«5*6« 

{.Ra».R2»-Rl»+Rl) 


PUT  aWaY  ORdcR.  dSRfL=  0,1, 3, 4. 

(•R3,*R3,-R2,+r2, ) 

OCT  3 

♦,  DSPCOUNT  L/  3 
INCREMENT  DSPCOUNT 

.0,  dSPcOUNT  a 3 

blanks  R1 
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JUL  91  I96S 


(MAIN)  PAGE  lp5 


PjNBALL  gAMe  BUTTONS  AND  LiqhTS  USER'S  OwN  PAgE  NO.  51 


1853 

09,3373 

O 0122  0 

tc 

ENTEXIt 

1859 

09,3379 

00000  1 SWTAB 

OCT 

0 

-R3 

1855 

09,3375 

00001  0 

OCT 

1 

*R3 

1856 

09,3376 

00003  1 

OCT 

3 

-R2 

1857 

09*33T7 

OOOO4  0 

OCT 

9 

♦ R2 
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pinball  oame  buttons  and  lights  user*s  own  Page  no,  52 

P1858  NVSUB  IS  USED  FOR  SUB  rqUTINE  CALLS  FrOM  WITHIN  COMPUTER,  IT  CAN  BE 
R1859  UScD  TO  DO  ANY  THING  THe  KeYBOARd  CAN  CALL,  PLACE  ,,,VVVVVVNNNNNN 
R1860  INJO  A,  V-S  Are  6 BIT  VERB  CODE,  N-5  , 6 BIT  NOUN  CODE, 

R1861  NVSUB  CAN  BE  USEp  WITH  MAcH  cApR  TO  BE  SPEc  BY  PLACING  THE  CAqR  INTO 

R1862  MPAC»2  before  THE  STANDARD  NVSUB  CALL, 

R1863  NvSUB  returns  TO  2+  CALLINq  LOC  AfTER  PERfORM1N(5  TASK,  Ip  DISPLAY 

R1864  system  is  AVAILABLE,  THE  NEW  NOUN  AND  VERB  CODES  ARE  DISPLAYED, 

R1865  iF  VJS  SO,  The  new  noun  code  is  DISPLAYED  ONlY (RETURN  WITH  NO  FURTHER 
R1866  ACTION),  IF  N-S  sO,  THE  NEW  VERB  CODE  IS  DISPLAYED  ONLY (RETURN  WITH  NO 
R1867  FURTHER  ACTION), 

R1868  IT  RETURNS  TO  1*  CALLING  LOC  WITHOUT  PERFORMING  TASK,  IF  DISPLAY 
R1869  sTsTFM  Is  blocked  (NOTHING  Is  DISPLAYED  IN  tHIS  CAsE), 

R1870  iT  does  TC  abort  (WiTh  OCT  01501)  iF  iT  ENCOUNTERS  A DISPLAY  PROGRAM 

Rl87oi  alarm  condition  BEFORE  RETURN  TO  CALLER, 

R1871  The  Display  system  is  blocked  by  the  depression  of  any 
R1872  key,  except  ERROR  LIGHT  RESET,  ALSO  BY  ENDiDLE, 

r1873  it  is  released  BY  SpECiAl  VErB  a rElEASE  DISpLAY,  ALL  GO  TO  VErBS, 

R1874  proceed  WITHOUT  pATA*  TeRMINATe*  INITIALlZg  e^eCUTIVei 

R1875  recall  part  OF  RECALTST  IF  ENDiDLE  wAS  USED 

R1876  IN  RECAlTST  IF  NvSUB  INITIATED  l^AU  AND  ENDIDlE  WAS  NOT  USED, 

R1877  VB  = REQUEST  EXECUTIVE,  VB  a rE(JUEST  WAITLIST, 
r1878  MONITOR  SET  UP, 

R1879  A NVSUB  CALL  THAt  PASSES  DSPLOCK  ENDS  OLD  MONITOR, 

R1880  DSpLoCK  IS  THE  InTERLo^K  FqR  USE  qF  KEyBqARD  AnD  DiSrLAY  SYSTEM  WHiCh 

R1881  LOCKS  OUT  internal  USE  WHENEVER  THERE  IS  EXTERNAL  KEYBOARD  ACTION, 

R1882  fjVsUB  In  fixed-fixed  rLACES  Z+CAlLInG  LqC  I^Tq  nVqTEm*  TC  nVSUBEnD  InTq 

R1883  ENtRET,  (THIS  WILL  RESTORE  OLD  CALLING  BANK  BITS) 


1884 

4356 

SETloC 

MlDSlX  ♦! 

1885 

4356 

54  107  0 

NVSUB 

TS 

NVTeMP 

IN  fixed  EIXeD 

1886 

4357 

10  652  1 

CCS 

DSPLOCK 

1887 

4360 

0 0002  0 

TC 

n 

DSP  SYST  BLOCKED,  RET  TO  1+  CALLING  LoC 
DSP  SYST  AVAILABLE 

1888 

4361 

3 0002  0 

CA 

Q 

1889 

4362 

6 7646  1 

AD 

one 

18891 

4363 

54  700  1 

TS 

NVQTeM 

2 ♦ cailiNg  l oc  into  nvqtem 

TURN  ON  kill  MONITOR  BIT 

1090 

4364 

0 A4DU  1 

TC 

KILMONON 

1891 

4365 

3 4371  0 

NVSUBCoM 

CAF 

NVSBBBnK 

I89Z 

4366 

56  006  1 

XCH 

bbank 

1893 

4367 

54  701  0 

IS 

NVBNKtEM 

1894 

4370 

0 2000  0 

TC 

NvSUbB 

gO  TO  NVSUbI  ThRU  STANpARp  LOc 

1895 

El 

EBANKa 

DSPCOUNT 

1896 

4371 

12001  0 

nVSBBBnK 

BBCoN 

nVSUbI 
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pInBall  game  butTqns  anD  lights 


1897 

9372 

3 0002 

0 

nvsubmon 

CA 

0 

1898 

9373 

6 7696 

1 

AO 

ONE 

18981 

9379 

59  700 

1 

TS 

nvqtem 

1S99 

9375 

0 9365 

0 

TC 

NVSUBCOM 

I9OO 

9376 

52  7OI 

0 

NVSUBEND 

DXCH 

nvqtem 

1901 

9377 

52  006 

0 

DXCH 

2 

I9O2 

05,3399 

SETLOC  ENDRQWT  *1 

I9O3 

05 

t3399 

3 3363 

1 

NVSUBI 

CAF 

EnTSET 

l90<f 

05 

,3395 

59  122 

1 

TS 

eNTReT 

1905 

05 

,3396 

3 3901 

1 

CAF 

L0W6 

1906 

05 

,3397 

7 0107 

0 

MASK 

NVtEMP 

1907 

05 

,3350 

59  190 

0 

TS 

MRAC 

190a 

05 

,3351 

3 3902 

1 

CAF 

MID6 

1909 

05 

,3352 

7 0107 

0 

MASK 

NVTEMP 

1910 

05 

,3353 

0 9997 

1 

Tc 

RIGHTS 

1911 

05 

,3359 

59  020 

1 

TS 

CyR 

1912 

05 

,3355 

56  020 

0 

XCH 

CYR 

I9I3 

O5 

,3356 

59  I9l 

1 

TS 

MPAC  ♦! 

191A 

05 

,3357 

10  190 

0 

CCS 

MRAC 

I9l5 

05 

,3360 

0 3369 

0 

Tc 

♦ 9 

1916 

05 

,3361 

56  191 

0 

XCH 

MRAC  ♦! 

1917 

05 

,3362 

0 2319 

0 

TC 

URDATVB  ,1 

1918 

O5 

,3363 

0 9376 

1 

ENTSET 

TC 

NVSUBEND 

1919 

05 

,3369 

10  191 

1 

CCS 

MpAC  ♦! 

1920 

05 

,3365 

0 3371 

1 

Tc 

+9 

1921 

05 

,3366 

56  190 

1 

XCH 

MRAC 

1922 

05 

,3367 

0 2279 

1 

TC 

UPDATNN  -1 

1923 

05 

,3370 

0 93T6 

1 

TC 

NVSUBEND 

1929 

05 

,3371 

56  191 

0 

XCH 

MrAC  ♦! 

1925 

05 

,3372 

0 231A 

0 

Tc 

URdATVB  -1 

1926 

05 

»33'i3 

56  UO 

1 

XCH 

MRAC 

1927 

05 

,3379 

0 2279 

1 

TC 

UpDATNN  -1 

1928 

05 

,3375 

3 7653 

0 

CAp 

Zero 

I9Z9 

05 

,3376 

59  65A 

1 

TS 

LOADSTAT 

1930 

05 

,3377 

59  655 

0 

TS 

CLPAss 

1931 

05 

,3900 

0 2031 

1 

TC 

entraso 

R1932 

IF  internal 

MACH  CADr  to  be  SPECIFIED, 

MPAC+2  will  be 

placed  into 

R1933 

NOuNCADR  IN 

ENTPASO  (INTMCT0S 

) • 

1939 

05 

,3901 

00077 

1 

LqW6 

oCT 

77 

1935 

05 

,3902 

O77OO 

1 

MId6 

OcT 

7700 

JUL  9»  1966  (MAjN)  PAGE  IA7 


USER'S  oWn  pAGE  nq,  53 
HONDO  comes  here 

2 ♦ calling  loc  into  nvqtem 


NVBNKTEM  must  e NVOTEM+1 
OtCB 


IN  BAnK 

SpT  RpTURN  TO  NVSUBeNd 


Temp  storage 


TEMP  storage 
test  noun 

Ip  noun  not  ♦Of  gO  on 

IP  noun  = +0,  DISPLAY  VERB  , THEN  RETURN 
test  verb 

IF  Verb  not  ♦o«  go  on 

IP  VERB  S +0,  display  NOUN,  ThEN  RETURN 

SPLAY 

SET  FOR  WAITING  FOR  DATA  CONDITION 


jp  both  noun  and  Verb  not  +o,  dj 

WTH  AND  GO  TO  ENTPASo 
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pinball  GAME  Buttons  and  lights 

USER'S  Own  page  no.  54 

1936 

4400 

setloc  nvsubend  *Z 

1937 

4400 

4 765®  1 

KILMONON  CS  BiTIs 

FORCE  BIT  15  OF  MONSAVEl 

TO  1. 

1938 

4401 

0 0004  0 

INHINT 

THIS  IS  the  kill 

monitor  bit 

1939 

4402 

7 0661  1 

MASK  MONSAVEl 

1940 

4403 

6 7630  0 

AD  BIT15 

1941 

4404 

54  66l  1 

TS  MONSAVEl 

1942 

4405 

0 0003  1 

ReLINT 

1943 

4406 

0 0002  0 

TC  0 

Ri969  LOADSTAT  +0  INACTIVE (WAITING  FOR  DATA).  SET  BY  NVSUB 

ri9«5  ♦!  prqCeed  No  data,  set  by  special  verb 

Rl9<(6  -1  terminate  set  By  special  verb 

R19A7  -0  DAtA  in  set  BY  END  OF  LOAD  ROUTINE 


R1948  L TC  EnDIDLE  (FIxED  FIxE(?) 

R19A9  routines  that  REQUEST  LOADS  THROUGH  NVSUB  SHOULD  USE  ENDiDLE  WHILE 

Ri9so  waiting  for  the  data  to  be  loaded,  endidle  puts  Current  job  to  sleep, 
oi95i  endidle  cannot  Be  called  From  Erasable  memory,  since  jobsleer  and 
R1952  JObWAKe  can  HANqLe  ONLY  FIXed  MeMORY. 

R1953  RECALtST  TESTS  LOADStAT  AND  wAKES  JOB  UP  TO. 

R195A  L+1  for  TERMINATE 

R1955  L*2  for  proceed  WITHOUT  DATA 

r1956  L*3  for  data  IN 

R1957  IT  DOES  NOTHING  IF  LOADSTAT  INDICATES  WAITING  fOR  DATA. 


1958 

4407 

3 7646 

1 

ENDIDLE 

CAF 

ONE 

1959 

4410 

54  652 

1 

TS 

DSPLOCk 

19^0 

44II 

22  004 

0 

LXCH 

FBANK 

1961 

4412 

56  002 

0 

XCH 

0 

1962 

4413 

52  120 

0 

DXCh 

BUf2 

1963 

4414 

0 4112 

1 

TC 

makecAdR 

44I5 

54  6"'6 

1 

TS 

CADRSTOR 

1965 

4416 

0 4164 

0 

TC 

JqBSlEEp 

1966 

4417 

0 4205 

1 

ENDINst 

tC 

endofjob 

R1967  dATAWAIT  IS  AN  ALTeRNATIVf  TO  eNdIdLe.  IT  RETURNS  IMMfDIATeLY  Ip 
R1968  LOADstAt  indicates  T^At  DAtA  is  already  in,  or  proceed  or  terminate  HAs 

R1969  BEEN  EXECUTED,  RETURN  FORMAT  iS  SAME  AS  FOR  ENDID.E, 

Rl9j0  DAtAwAit  CANNOT  BE  CALLED  FROM  ERASABLE  MEMORY.  SINCE  JOBsLEEP 
pl971  And  JqBWAKE  CAn  HAnDlE  only  fixed  mEmorY. 

R1972  dATAWAjT  ShOULd  Be  used  only  AfTeR  ReQUeSTjNg  a load  Verb. 

1973  A4Z0  10  65A  1 DAtAWAIt  CCs  LOADstAt 
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pInBalc  game  buttons 

And  lights 

USER'S  OWN  PAGE  NOt  55 

1974 

4421 

1 4426  1 

tcf 

datwaiti 

PROCEED,  return  TO  L+2, 

1975 

4422 

1 4407  1 

tCF 

ENDIDLE 

stIll  waiting,  GO  tO  sleep. 

1976 

4423 

0 0002  0 

TC 

0 

terminate,  return  to  L+1, 

1977 

4424 

5q  go^  0 

INDEX 

Q 

DATA  IN,  RETURN  TO  L+3, 

1978 

4425 

0 0002  0 

TC 

2 

1979 

4426 

50  002  0 

datwaiti  index 

Q 

Return  to  l*2. 

1980 

4427 

0 0001  0 

TC 

1 

R1981 

dATAWAIT  oOeS  not  Re>-e 

[ASe  display  syst. 

IT  IS  ReLeASeD 

AT  eNd  Op  '^VSUB 

R1982 

initiated  load,  if  enE 

ilDLE  wAs  NOT  USED, 

1983 

05,3403 

SETLOC 

MID6  ♦] 

R1984 

dspmm  Place  maJoR  mqDe  CqDE 

InTo  MqOREG 

j985 

05,34q3 

3 45i0 

1 

DSPMM], 

CAP 

MDi 

GETS  HERE  thru  DSPMM  (STANDARD  LEAD  IN) 

1986 

05,3404 

56  637 

0 

XCH 

DSPCOUnT 

l986l 

05,3405 

54  124 

1 

TS 

DSPMMTEM 

SAVE  DSPCOUNT 

1987 

05,3406 

3 0651 

0 

CA 

MODREQ 

1988 

05,3407 

22  002 

0 

LXCH 

a 

1989 

05,3910 

0 3255 

0 

TC 

DSP2BIT 

19891 

05,3411 

56  124 

0 

XCH 

DSpMMTEM 

rESTOrE  DSpCqUNT 

19892 

05,3412 

54  637 

1 

TS 

dSPcOUNT 

I99O 

05(3413 

0 0001 

0 

DSPMMEND 

TC 

L 

R1991 

REfALTST  IS  entered  nlREcTLY 

after  data 

IS 

R1992 

loaded,  terminate  vEro  is  Executed,  or  the  proceed  without  data  werb 

IS 

R1993 

EXECUTED,  IT  WAKES  UP  JOB  THAT  DlD  TC  ENDIDLE, 

R1994 

IF  NvsuB  initiated  load,  and 

ENDIDLE  uAS 

NOT  USED 

>,  then 

It  RELEASES 

R1995 

display  syst,  (Needed  for  datawaiT) 

1996 

04,3400 

SETLOC 

SWTAB  +4 

1997 

04 , 3400 

10  676  1 

Recaltst 

CCS 

cadRstor 

1998 

09(3401 

0 39O6  0 

TC 

RECALl 

1999 

04,3402 

0 4205  1 

TC 

EnDqFJoB 

normal  exit  if  KEYBqArD 

initiated 

2000 

04,3403 

0 3906  0 

TC 

recali 

2001 

09(3409 

59  676  1 

TS 

CADRSTOR 

-0.  conclusion  of  NVSUB 

INITIATED  load 

2002 

04(3905 

0 3424  0 

tc 

RECAL3 

+0  INjO  CADRstOR(  release  DIsPLAY( 

A2003 

and  ENDOFJOB,  needed 

FOR  DATAWAjT, 

2OO4 

09(3906 

3 T653  0 

RECALl 

CAF 

ZERO 

2005 

04(3407 

56  676  0 

XCH 

CADRSTqR 

200* 

09(3410 

0 0009  0 

INHINT 

2007 

04,3411 

0 4170  0 

TC 

JOBwAKE 

2008 

04(3412 

10  654  1 

CCS 

loadstat 

2009 

0«(39l3 

0 3930  0 

TC 

DOPROC 

♦ proceed  without  data 

275690 

2010 

2011 

2012 

2013 

2014 

2015 

20lft 

2017 

2018 

2019 

2020 

2021 

2022 

2023 
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pinball  game  Buttons  and  lights 


USER'S  Own  page  no,  56 


04,3414 

0 4205 

1 

TC 

ENOOfJOB 

pathalogical  case  exit 

04,3415 

0 3426 

1 

TC 

DOTERM 

- terminate 

04,3416 

3 7645 

1 

CAF 

TWO 

04,3417 

50  635 

1 

RECAL2 

INDEX 

LOCCTR 

04,3420 

6 0150 

0 

AO 

LOC 

LOC  IS  ♦ FOR  BASIC  JOBS 

04,3421 

50  635 

1 

INDEX 

LOCCTR 

04,3422 

54  I5O 

1 

T5 

LOC 

04,3423 

0 0003 

1 

RELINT 

04,3424 

0 4633 

0 

RECAL3 

TC 

reldspi 

DOES  NOT  search  LIST 

04,3425 

0 4205 

1 

TC 

ENDOFJOB 

04,3426 

3 7653 

0 

DOTERM 

CAF 

ZERO 

1 

04,3427 

0 3417 

0 

TC 

RECAL2 

04,3430 

3 7646 

1 

DopRoC 

CAF 

one 

04,3431 

0 3417 

0 

TC 

RECAL2 
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p2024 


r2025 

R2026 

R2027 

R202S 


R2029 

R2o3o 

R2031 

R2032 

R2033 

R2034 

R2035 

R2036 

R20361 

R2q362 


R2O37 

R2038 

R2O39 

p2OA0 

R2041 

R20411 

R2042 

R2O43 

R20A4 

R2045 

R2qA6 

R2047 

R2048 

R2049 

R2050 

R2o51 

R20511 

R2O5I2 


R2052 

R2053 


pinball  game  buttons  and  LIGHTS  usERiS  Own  page  no.  57 

THE  Following  refers  Tq  the  nqUn  tables 


COMPONENT  Code  number 

00000 

00001 
00010 


SF  Routine  CqDe  nUmBer 

00000  OCTAL  only 

00001  STRAIGHT  FRACTIONAL 

00010  DEGREES  IXXX.XX) 

00011  arithmetic  sf 

00100  ARITH  DPI  0UT<MULT  BY  2/14  AT  END)  IN(STRAIGHT) 

00101  ARITH  0P2  OUT ( STRA IQHT ) INtSL  7 AT  END) 

00110  OPtICs  DEGREES (XX. XXX  MAX  89.999)  OR  (XXX. XX  MAX  179.99) 

00111  ARiTh  DP3  OUT  ( SL  7 AT  END)  jN  ( STRAjGhT) 

END  OF  SF  routine  CODE  NUMBERS 


interpretation 

1 COMPONENT 

2 COMPONENT  (EACH  S P) 

3 component  (each  SP) 


I(,|TERPRETATIoN 


SF  constant  code  Number  interpretation 


00000 

00000 

00001 
00010 

00010 

00011 

00100 

00101 


O' 

0' 


I Iq 

II 


01000 

01001 

oIq^O 

01011 

END  OF  SF  constant  CODE  NUMBERS 


Whole 

TIME  SEC(XXX.XX)SAME  AS  WH0LE(ARITH  DPd 
time  HoUrS(XXX.XX)  use  ArITH  Dp2 

degRees 

optics  Degrees 

GYRO  DEQREES(XX.XXX)  USE  ARITH  DPI 
GYRO  BIAS  DRIFT  .BBXXXXX  MILLIRAD/SEC 
GYRO  AXI5  ACCEL.  Drift 
.BrXXXXX  (MiLLiRAd/SeO  / (CM/SeC  sec) 
PIPA  bias  x.XXXX  cm/sec  sec 
PIPA  SCAlE  factor  error 
xxxxx.  parts/million 

POsItION(XXXX.X  kilometers)  use  ARItHDPS 

Velocity (xxxx.x  meters/sec)  use  ar.Tudp2 

time  H0URS(XXX.XX)WEEKS  IN5IDE(ARltHDP2) 
Elevation  degrees (89, 999max>  use  arith 


for  greater  THflN  SINGLE  PRECISION  SCALES,  PUT  a^ORESS  OF  MaJOR  PaRT  INtO 
NOuN  tables. 
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R20SA  octal  loads  PLACE  +0  iNjO  MAJOR  PART.  DATA  iNtO  MiNOR  PART, 

R2055  OCtAL  displays  SHOW  MINOR  PART  ONLY. 

R2056  tO  get  At  BOtH  major  and  minor  parts  (IN  OCTAL).  uSE  NOyN  01, 


275690 


YUL  system  pOR  0LK2i  ReViSiON  0 Op  PROqRaM  ReTRED^A  BY  NASA  2021100 


JUL  9t  1965 


(MAiN) 


page  193 


pInSALL  6AmE  BUTTq(\)S  AfjD  LIGHTS  USER'S  qWn  pAGE  nq.  59 

P2057  the  following  ROUTINES  ArE  FOR  READING  THE  NOuN  TABLES  AnO  jHE  $F  TABLES 

R2058  (WHICH  ARE  In  A SEpARATE  BAnk  FRqm  THE  REST  qP  pIn®AlU.  THESE  READING 

R2059  routines  ArE  IN  THE  SAME  BANK  AS  THE  TABLES.  THEy  Are  CALLED  By  DxCH  Z. 


R2060  LODNNTAB  L0A<^S  NNaDTEM  WITH  ThE  NNa^TAB  ENTRY.  NNTYPTEM  WITH  THE 

R2061  NNtYPtAB  ENyRY,  iF  jHE  NOyN  Is  MlvED,  iDADIjEM  Is  LOADED  uIjH  jHE  FlRSj 

R2062  jDADDTAB  ENTRY.  iDADZTEM  ThE  SECOND  jDAODTAB  ENTRY.  iDADSTEM  ThE  ThiRD 
R2063  IDAODTAB  ENTRY*  RUTMXTEM  WITH  THE  rUTMxTAB  ENTRY.  MIxBr  IS  SET  FOR 
r2064  mixed  or  normal  NOyN. 

2065  06*2000  SETLOC  24000 


2066 

06 

.2000 

52  136 

1 

LoDnnTAB  DXCH 

IDAD2TEM 

SAVE  pETUpN  InFo  IN  IDADZTEm*  IDAD3TEm. 

2067 

06 

.2001 

50  6A2 

1 

index 

NOUNReG 

2068 

06 

.2002 

3 2052 

1 

CAF 

nnadtab 

2069 

06 

.2003 

54  132 

0 

TS 

NNADTEM 

2O7O 

06 

.2004 

5O  6A2 

1 

INDEX 

NOUNREG 

2071 

06 

.2005 

3 2152 

0 

CAF 

NNTYPTAB 

2072 

06 

.2006 

54  133 

1 

TS 

NNTYPTeM 

2O73 

06 

.ZOO7 

4 0642 

0 

CS 

NOUNREG 

2074 

06 

.2010 

6 2036 

0 

AD 

MIXCON 

2075 

06 

.2011 

0 0006 

1 

EXTEND 

2076 

06 

.2012 

6 2016 

1 

BZMF 

LoDMIXNN 

NOUN  number  G/E  FIRST  MIxED  NOUN 

2077 

06 

.2013 

3 7646 

1 

CAF 

ONE 

NOuN  Number  l/  first  mixed  nouN 

2078 

06 

.2014 

54  124 

1 

TS 

MiXBR 

NORMAL,  +1  INTO  MiXBR, 

2o79 

9* 

.ZqIS 

0 203^^ 

1 

TC 

LODNLV 

2080 

06 

.2016 

3 7645 

1 

iOdMiXNN  caf 

TWO 

MIXED,  +2  INTO  MiXBR, 

20gl 

06 

*2017 

54  124 

1 

TS 

MIXBR 

2082 

06 

.2020 

50  642 

1 

INDEX 

NOUNREG 

2083 

06 

.2021 

3 2345 

1 

CAF 

RUTMXTAB  -55 

2084 

06 

*2022 

54  137 

0 

TS 

RUTMXTEM 

2085 

06 

*2023 

3 6425 

1 

CAF 

LoWlO 

2086 

06 

*2024 

7 0132 

0 

MASK 

NNADTeM 

2087 

06 

*2025 

54  002 

1 

TS 

0 

TEMP 

2088 

06 

.2026 

50  000 

1 

index 

A 

2089 

2090 

06 

06 

.2027 

.2030 

3 2332 
54  134 

1 

0 

caf 

TS 

IDADDTAB 
f qAdITeM 

LOAD  IdAoITeM  WITH  pIRST  IdAddTAB  pNTRY 

2O9I 

06 

,2031 

0 0006 

1 

EXTEND 

2092 

06 

*2032 

5 0002 

0 

INDEX 

0 

LOAD  IDAD2TEM  WITH  2ND  IDADDTAB  ENTRY 

2093 

06 

*2033 

3 2334 

1 

DCA 

IDADDTAB  +1 

load  IDAD3TEM  WITH  3RD  IDADDTAB  ENTRY. 

2094 

06 

.2034 

52  136 

1 

LoDNLV 

DXCH 

IDADZTEM 

pUT  pETUpN  InFo  INTo  A.  L, 

2O95 

06 

.2035 

52  006 

0 

dXch 

Z 

2096 

06 

.2036 

00055 

1 

MIKCON 

OCT 

55 

FIrST  MIXED  noun  » 55, 

R2097  GtsFOUj  LOADs  sFjEmPI*  sFt^MP2  WI^H  jHE  DP  sFOUyAB  ENjRIEs* 


275690  YUL  SYSTEM  F°R  BLK2I  ReViSiON  0 Op  PROqRAM  ReTRED^'^  BY  NASA  2021100 


JUL  9*  1965  (MAlN>  PAGE  19^ 


pInsall  game  buttons  And  lights 


USER'S  OWN  pAGE  No*  *0 


2098 

06*2037 

52  llO 

0 

GT5F0UT 

DxCH 

SFTEMPl 

2X(Sfconum)  Arrives  in  sftempi. 

2099 

06*2090 

0 0006 

1 

extend 

2100 

06*2091 

5 0000 

1 

index 

A 

2101 

06,2092 

3 2303 

0 

DCA 

sfoutab 

2102 

06*2093 

52  110 

0 

SFCOM 

DXCH 

SFTEMPl 

2103 

06*2099 

52  006 

0 

DXCH 

Z 

R2109 

GTSFiN  loads  SFTeMPI'  SFTeMP2 

WITH  the 

DP  SFINTAB  entries. 

2105 

06*2095 

52  110  0 

GTSFIN  DXCH  SFTEMPl 

2x(SFcoNUM)  Arrives  in  sftempi. 

2106 

06*2096 

0 0006  1 

extend 

2107 

06*2097 

5 0000  1 

INDEX  A 

2108 

06*2050 

3 2253  1 

DCA  SFINtAB 

2109 

06*2051 

1 2093  0 

TCF  SFCOM 

A2110 

2111 

06*2052 

00000 

1 

NNADTAB  OCT 

OOOOO 

NN 

00 

normal  nouns 

NOT  IN  USE 

2112 

06*2053 

90000 

0 

OCT 

90000 

01 

SPECIFY  MACHINE  ADDrEsS  (FRACTIONAL) 

2113 

06*2059 

9OOOO 

0 

OCT 

90000 

02 

SPECIFY  machine  ADDRESS  (WHOLE) 

2ll9 

06*2055 

90000 

0 

OCT 

90000 

03 

SPECIFY  MACHINE  ADDRESS  (DEGREES) 

2115 

06*2056 

90000 

0 

OCT 

90000 

09 

SPECIFY  machine  ADDRESS  (HOURS) 

2116 

06*2057 

90000 

0 

OCT 

90000 

05 

specify  machine  address  (SECONDS) 

2117 

06*2060 

90000 

0 

OCT 

90000 

06 

SPECIFY  MACHINE  ADDrEss  (GYRO  DEG) 

2118 

06*2061 

90000 

0 

OCT 

90000 

07 

SPECIFY  machine  address  (Y  OPT  DEG.) 

2ii9 

06*2q62 

77776 

1 

OCT 

77776 

10 

CHANNEL  TO  BE  SPECIFIED 

2120 

06*2063 

00000 

1 

OCT 

OOOOO 

11 

spare 

2121 

06*2069 

OOQOO 

1 

OCT 

ooooo 

12 

SPARE 

2122 

06*2065 

ooooo 

1 

OCt 

OOOOO 

13 

SPARE 

2123 

06*2066 

00000 

1 

OCT 

OOOOO 

19 

spare 

2129 

06,2067 

77777 

0 

OCT 

77777 

15 

INCREMENT  MACHINE  ADDRESS 

2125 

06*2070 

00029 

1 

ECADR 

TIME2 

16 

time  seconds 

2126 

06*2071 

00029 

1 

ECADR 

TIME2 

17 

TIME  HOURS 

2127 

06*2072 

OOQ3Z 

0 

ECADR 

CDUX 

20 

ICDU 

2128 

06*2073 

00037 

0 

ECADR 

PI  PAX 

21 

PIPAS 

2129 

06,2079 

00716 

1 

ECADR 

ThETAD 

22 

NEW  ANqLES  I 

2I3O 

06*2075 

OO7II 

0 

ECADR 

DSPTEMz 

23 

delta  angles  I 

2131 

06*2076 

OO7O6 

0 

ECADR 

DsPyEMl 

DSPTeMI 

29 

DELtA  time  (sEC) 

2132 

06*2077 

OO7O6 

0 

ECADR 

25 

checklist 

2133 

06*2100 

00706 

0 

ECADR 

DSPTEMl 

26 

PRIO/DELAy*  ADRES*  BBCON 

2139 

06*2101 

01097 

0 

SmoDE 

27 

self  test  on/oFF  switch 

2135 

06*2102 

OO7O6 

0 

dSPTEMI 

30 

star  numbers 

2136 

06*2103 

00721 

0 

ECADr 

FAILrEG 

31 

FAILREG 

2137 

06*2109 

00722 

0 

ECADR 

tdec 

32 

DECISION  Time  (Midcoursei 
EPHEMERIS  time  IMIDCOURSE) 

06*2105 

OO729 

0 

ECADR 

TET 

33 

2139 

06*2106 

00726 

1 

ECADR 

MEA5Q 

39 

measured  QuANtItY  (MIDCOuRsE) 

2190 

06*2107 

00730 

0 

ecadR 

ROLL 

35 

roll*  PiTch*  Yaw 

27569°  YUL  system  FOR  0UK2;  REVISION  0 OF  PROGRAM  REtREDA9  By 
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2161 

06,2110 

00733 

0 

ECADr 

2142 

06.2111 

00736 

0 

ecadr 

2I43 

06,2112 

00000 

1 

OCT 

2166 

06,2113 

ooooo 

1 

OCT 

2165 

06,2116 

00000 

1 

OCT 

2166 

06,2115 

ooooo 

1 

OCT 

2167 

06,2116 

ooooo 

1 

OCt 

2168 

06,2li7 

ooooo 

1 

OCT 

2U9 

2I5O 

06,2120 

ooooo 

1 

OCT 

06,2121 

ooooo 

1 

OCt 

2151 

06,2122 

ooooo 

1 

OCT 

2152 

°6,2123 

ooooo 

1 

OCT 

2153 

06,2126 

00761 

0 

ecadr 

2156 

06,2125 

00766 

0 

ECAdR 

2155 

°6,2126 

0O747 

0 

ecadr 

A2156 

2157 

06,2127 

02000 

0 

OcT 

2158 

°6,2130 

04002 

1 

OCT 

2159 

06,2131 

02005 

0 

OCT 

2160 

06,2132 

06007 

1 

OcT 

2l6l 

06,2133 

02012 

0 

OCT 

2162 

06,2136 

02016 

0 

OCT 

2163 

06,2135 

02016 

1 

OCT 

2166 

06,2136 

02020 

1 

OCt 

2165 

06,2137 

02022 

0 

OCT 

A2i66 

2167 

06,2160 

06026 

0 

OCT 

2168 

06,2161 

06027 

0 

OCT 

2169 

06,2162 

06032 

1 

OCt 

2I7O 

06,2163 

06035 

0 

OcT 

2I7I 

06,2146 

O4O4O 

1 

OCT 

2172 

06,2165 

06063 

1 

Oc? 

2173 

06,2166 

06066 

1 

2176 

06,2167 

06051 

1 

OCT 

2175 

06,2150 

06056 

1 

OCT 

ZI76 

06,2151 

O4O97 

1 

OCT 

a2177 

2I78 

06,2152 

OOOOO  1 

NNTYPTAB  OCT 

2179 

06,2153 

00Q60  0 

OCT 

2180 

06,2156 

00160  1 

OcT 

2181 

06,2155 

00102  1 

OCT 

2182 

06,2156 

00261  0 

OCT 

2ia3 

06,2157 

00200  0 

OCT 

2186 

06,2160 

00203  0 

OCt 

2185 

06,2161 

00302  0 

OcT 

2186 

06,2162 

OOOOO  1 

OCT 

NASA  2021100 


landmark 
Landmark  +3 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
GBiAsX 
Ad  I AX 

adsrax 


02000 

04002 

02005 

04007 

02012 

02014 

0201fe 

02020 

02022 

04024 

04027 

04032 

04035 

O4O4O 

04043 

04046 

04051 

04056 

04057 


00000 

00040 

00160 

00102 

00261 

00200 

00203 

00302 

00000 
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36  LANDMARK/ DAtA  1 

37  landmark  data  2 
4O  SPARE 

61  SPARE 

62  SPARE 

43  SPARE 

44  SPARE 

65  SPARE 
46  SPARE 
67  SPARE 

50  SPARE 

51  SPARE 

52  gyro  bias  drift 

53  qYRO  jNPUT  AXtS  ACCeI-ERATiON  dRifT 

54  GYRO  SPIN  AXIS  ACCELERATION  DRIFT 

NN  mixed  no^nS 

55  OCdU 

56  uncalled  MARK  DATA  (OCDU  6 TIME(SEO) 

57  new  angles  OCDU 

60  IMU  mode  status 

61  target  Azimuth  and  elevation 

62  iCDUZ  and  time (SEC) 

63  OCDUX  And  time (SEC) 

66  OCDyY  and  tIME(sEC) 

65  sampled  TiMe  (h°URS  ANd  SECONDS) 

(FETCHED  IN  INTERRUPT) 

66  system  test  results 

67  DELTA  GYRO  ANGLES 

70  pipA  BIAS 

71  PiPA  Scale  factor  error 

72  delta  position 

73  delta  velocity 

76  Measurement  data  (midcoursf) 

75  measurement  deviations  (MIDCOURSE) 

76  position  vector 

77  velocity  vector 


NN  normal  nouns 

00  NOT  IN  USE 

01  icoMP  Fractional 

02  IcOMP  WHOLE 

03  ICOMP  DEGREES 
06  ICOMP  h(3URS 

05  ICOMP  SECONDS 

06  ICOMP  GYro  degrees 

07  ICOMP  Y Opt  degrees 
10  iCOMP  OCTAL  ONLY 
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2187 

06,2163 

00000 

1 

OCT 

2188 

06,2164 

00000 

1 

OCT 

2189 

06,2165 

00000 

1 

OCT 

2190 

06,2166 

OOQOO 

1 

OCT 

2191 

06,2167 

00000 

1 

OCT 

2192 

06,2170 

00200 

0 

OCT 

2193 

06,2171 

00241 

0 

OCT 

2194 

06,2172 

04102 

0 

OCT 

2195 

06,2173 

04140 

0 

OCT 

2196 

06,2174 

04102 

0 

OCT 

2197 

06,2175 

04102 

0 

OCT 

2198 

06,2176 

00200 

0 

OCT 

2199 

06,2177 

OOI4O 

1 

OCT 

2200 

06,2200 

04000 

0 

OCT 

2201 

06,2201 

00 140 

1 

OCT 

2202 

06,2202 

04140 

0 

OCT 

2203 

06,2203 

02000 

0 

OCT 

22O4 

06,22°4 

OO252 

1 

OCT 

2205 

06,2205 

00252 

1 

OCt 

2206 

06,2206 

OO35O 

1 

OCT 

22O7 

06,2207 

O4IO2 

0 

OCT 

2208 

06,2210 

04000 

0 

OCt 

2209 

06,2211 

04000 

0 

OCT 

2210 

06,2212 

ooooo 

1 

OCT 

2211 

06,2213 

00000 

1 

OCt 

2212 

06,2214 

OOOOO 

1 

OCT 

2213 

06,2215 

ooooo 

1 

OCT 

22U 

06,2216 

ooooo 

1 

OCt 

2213 

06,2217 

ooooo 

1 

OCT 

221s 

06,2220 

ooooo 

1 

OCT 

22I7 

06,2221 

ooooo 

1 

OCt 

2218 

06,2222 

ooooo 

1 

OcT 

2Zlo 

06,2223 

ooooo 

1 

OCT 

2220 

06,2224 

04144 

1 

OCt 

2221 

06,2225 

04145 

0 

OCT 

2222 

06'Z226 

O4I45 

0 

OCT 

A2223 

2224 

06,2227 

00102 

1 

OcT 

2223 

06,2230 

00102 

1 

OCT 

2226 

06,2231 

00102 

1 

OCT 

2227 

06*2232 

ooooo 

1 

OCT 

2228 

06,2233 

00542 

1 

OCt 

2229 

06,2234 

00002 

0 

OCT 

223O 

06*2235 

00002 

0 

OCT 

2231 

06,2236 

00002 

0 

OCj 

2232 

06,2237 

00001 

0 

OcT 

2233 

06*224° 

OOOOO 

1 

OCT 

2234 

06,2241 

06143 

1 

OCt 

Oct 

2233 

06,2292 

14306 

1 

NASA  2021100 
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ooooo 

11 

SPARE 

ooooo 

12 

SPARE 

ooooo 

13 

spare 

ooooo 

14 

SPARE 

ooooo 

15 

ICOMP 

OCTAL  ONLY 

00200 

16 

ICOMP 

seconds 

00241 

17 

iCOMP 

HOURS 

04102 

20 

3C0MP 

DEGREES 

04140 

21 

3C0MP 

WHOLE 

04102 

22 

3C0MP 

degrees 

04102 

23 

3C0MP 

degrees 

00200 

24 

ICOMP 

SECONDS 

OOI4O 

25 

ICOMP 

WHOLE 

04000 

26 

3C0MP 

OCTAL  ONLY 

00140 

27 

ICOMP 

whole 

04140 

30 

3C0MP 

WHOLE 

O2OOO 

31 

2C0MP 

OCTAL  ONLY 

OO252 

32 

ICOMP 

TIME  WEEKS 

00252 

33 

ICOMP 

time  WEEKS 

00350 

34 

ICOMP 

POSITION 

O4IO2 

35 

3COMP 

DEGREES 

04000 

36 

3C0MP 

octAL  only 

04000 

37 

3C0MP 

octal  only 

OOOOO 

40 

SPARE 

OOOOO 

41 

spare 

OOOOO 

42 

SPARE 

OOOOO 

43 

SPARE 

OOOOO 

44 

SPARE 

OOOOO 

45 

SPARE 

ooooo 

46 

SPARE 

ooooo 

47 

SPARE 

ooooo 

50 

spare 

ooooo 

51 

SPARE 

04144 

52 

3C0MP 

gyro  bias  DRIFt 

04145 

53 

3C0MP 

«YRO  AX,S  ACCEL  DRtFT 

04145 

54 

3COMP 

GYRO  Axis  ACCEL:  DRIFT 

00102 

2C0MP 

mixed  noUnS 

degree^*  ' degReeb 

degrees*  y opt  degrees*  SECs 

00102 

56 

3C0MP 

00102 

57 

2C0MP 

degrees*  y opt  degrees 

OOOOO 

6° 

3COMP 

OCTAL  ONLY 

00542 

61 

2C0MP 

degrees,  elevation  degrees 

00002 

62 

2C0MP 

degrees*  Secs 

OOOO2 

63 

2COMP 

DEGREES,  SECS 

00002 

64 

2C0MP 

Y OPT  DEGREES*  sE^s 

00001 

65 

2C0MP 

hours*  Seconds 

OOOOO 

66 

3COMP 

WHOLE,  FRACTIONAL*  WHOLE 

06143 

67 

3C0MP 

gyro  degrEEc  For  each 
PiPa  BjAS  pOR  each 

14306 

70 

3cOMP 
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2236 

06,2293 

16397  0 

OCt 

16397 

71 

3C0MP 

PiPA  scale  factor  err, for  Each 

2237 

06(2294 

20410  0 

OCT 

20910 

72 

3C0MP 

POSITION  FOR  EACH 

223p 

06(2245 

2245^  ^ 

OCT 

2245I 

73 

3COMP 

velocity  for  each 

2239 

06(2296 

00412  0 

OCj 

00912 

79 

3C0MP 

time  weeks*  P05ITI0N(  whole 

2240 

06(2297 

2045O  1 

OCT 

20950 

75 

3C0MP 

P0SiTi0N(  VELOCiTY(  POSjTiON 

224I 

06(2250 

2O4IO  0 

OCT 

2O4IO 

76 

3COMP 

POSITION  FOR  EACH 

2242 

06(2251 

2245I  1 

OCt 

22951 

77 

3C0MP 

velocity  for  each 

2243 

06(2252 

00006 

1 

SFINtAB  OCt 

00006 

WH0LE(TIME(SEC) 

2249 

06(2253 

03290 

1 

OcT 

03290 

2245 

06(2259 

00253 

0 

OCT 

00253 

TIME  HOURS  ( B ) 

2246 

06(2255 

25129 

1 

OCT 

25129 

(POINT  between  Bits  7-8 

2247 

06(2256 

00000 

1 

OcT 

0 

degrees  <SFcON  in  deSINSF 

224R 

06(2257 

00000 

1 

OCT 

0 

2249 

06(2260 

OOO2I 

1 

OCT 

00021 

gyro  degrees 

2250 

06(2261 

3O7O7 

1 

OCT 

3O7O7 

GYRO  BIAS  drift 

2251 

06(2262 

00001 

0 

OCt 

00001 

2252 

06(2263 

02133 

1 

OCT 

02133 

2253 

06(2269 

00011 

1 

OCT 

00011 

gyro  axis  acceL(  Drift 

2254 

06(2265 

30322 

1 

OCt 

30322 

2255 

06(2266 

00009 

0 

OCT 

00009 

PiPA  bias 

2256 

06(2267 

I402I 

1 

OCT 

I4O2I 

2257 

06(2270 

00319 

1 

OCT 

00319 

PIPA  scale  error. 

2258 

06(2271 

31463 

1 

OCT 

31963 

2259 

06(2272 

23420 

0 

OCT 

23920 

POSITION 

2260 

06(2273 

00000 

1 

OCT 

00000 

2261 

06(2279 

00201 

1 

OCT 

00201 

VELOCITY 

22fe2 

05*2275 

30327 

1 

OCT 

30327 

( POINT  BETWEEN  BITS  7-8 

2263 

06(2276 

01371 

0 

OCT 

01371 

TIME  WEEKS 

2264 

06(2277 

39750 

1 

OcT 

39750 

( POINT  BeTWeeN  bits  7-8 

22641 

06,2300 

00001 

0 

OCT 

00001 

elevation  degrees 

22642 

A2265 

06(2301 

03439 

1 

OCT 

03939 

END  OF  SFINTAB 

2266 

06(2302 

05179 

0 

SFOUTab  OcT 

05179 

WH0LE(  T1ME(SEc> 

2267 

06(2303 

13261 

0 

OCT 

13261 

2268 

06(2309 

27670 

0 

OCT 

27670 

Time  hours 

2269 

05(2305 

31357 

1 

OCT 

31357 

2270 

06(2306 

00000 

1 

OCT 

0 

degrees 

2271 

06(2307 

00000 

1 

OcT 

0 

2272 

06(2310 

01631 

1 

OCT 

01631 

GYRO  DEGREES 

2273 

06(2311 

23196 

0 

OCt 

23196 

2279 

06(2312 

35753 

0 

OCT 

35753 

gyro  Bias  dRifT 

2275 

06(23l3 

32323 

1 

OCT 

32323 

2276 

06(2319 

03216 

1 

OCt 

03216 

gyro  axis  accel.  Drift 

2277 

06(2315 

06900 

0 

OcT 

06900 

275690  YUL  SYSTEM  FOR  BUK2j  REVISION  0 OF 
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2270 

06,2316 

07237 

0 

2279 

06,2317 

37776 

0 

2200 

06,2320 

00120 

1 

2281 

06,2321 

00000 

1 

2282 

06,2322 

00321 

1 

2283 

06,2323 

26706 

1 

228A 

06,2324 

374AI 

1 

2285 

06,2325 

IA2A7 

0 

2286 

06,2326 

05300 

1 

2287 

06,2327 

20305 

0 

22871 

06,2330 

34631 

1 

22872 

06,2331 

23146 

0 

A2288 

A2289 

2290 

06 

,2332 

00036 

1 

2291 

06 

2333 

00035 

1 

2292 

06 

2334 

00706 

0 

2293 

06 

2335 

OO7O7 

1 

229A 

06 

2336 

00710 

1 

2295 

06 

2337 

00752 

1 

2296 

06 

2390 

00753 

0 

2297 

06 

2391 

01017 

0 

2298 

06 

2392 

OlOlT 

0 

22981 

06 

2393 

01021 

0 

2299 

06 

2399 

OO706 

0 

2300 

06 

2395 

00707 

1 

2301 

06 

2396 

00039 

0 

2302 

06 

2397 

00029 

1 

2303 

06 

2350 

00036 

1 

2304 

06 

2351 

00029 

1 

23O5 

Oo 

2352 

00035 

1 

2306 

Og 

2353 

00029 

1 

2307 

06 

2354 

OO759 

1 

230g 

06 

2355 

OO754 

1 

2309 

06 

2356 

00711 

0 

2310 

06 

2357 

00712 

0 

2311 

06 

236° 

OO7I3 

1 

2312 

06 

2361 

00756 

0 

2313 

06 

2362 

00760 

0 

23I4 

06 

2363 

OO762 

1 

2315 

06 

2364 

00769 

1 

2316 

06 

2365 

00766 

0 

2317 

06 

2366 

OO77O 

1 

2318 

06 

2367 

00765 

0 

2319 

06 

2370 

00767 

1 

2320 

06 

2371 

007-^1 

0 

2321 

06 

2372 

01600 

0 

aM  RETRED49  BY 

NaSa  2021100 

JUL  9*  1965  (MaIN)  Page  i9s 

USER'S 

OWN  Page  no,  69 

OCT 

07237 

PIPA 

BIAS 

OCT 

37776 

OCT 

00120 

PIPA 

SCALE  ERROR 

OCT 

00000 

OCT 

00321 

POSITION 

OCT 

26706 

( POINT 

BETWEEN  BITS  7-8  ) 

OCT 

37991 

velocity 

OCT 

19297 

OCT 

05300 

TIME 

WEEKS 

OCT 

20305 

OCT 

34631 

elevation  degrees 

OCT 

23146 

END  1 

OF  SFOUTAB 

mixnoun 

SF  ROUT 

idaddtab  ecadr 

OPTX 

01 

degrees 

ECADR 

OPTY 

01 

Y OPT  DEGREES 

ECADR 

DSPTEMl 

02 

degrees 

ecadr 

DSPTEMl  +1 

02 

Y OPT  DEGREES 

ecadr 

DSpTEMI  *2 

02 

SEC 

ECAdR 

DeSOPTX 

03 

DeGReeS 

ecadr 

DESOPTX  +1 

03 

Y OPT  degrees 

ecadr 

waskset 

04 

OCTAL  ONLY»'"H'CHANeE  TO  iN3*»*9 

ecadr 

WA5KSET 

04 

OCTAL  ONLY 

ECADr 

OLDErr 

04 

OCTAL  ONLY 

ECAdR 

DSPTeMI 

05 

Degrees 

ecadr 

DSPTEMl  ♦! 

05 

ELEVATION  DEGREES 

ecadr 

CDUZ 

06 

degrees 

ecadr 

TIME2 

06 

SEC 

ecadr 

OPtX 

07 

degrees 

ecadr 

TiMe2 

07 

Sec 

ecadr 

OI^TY 

10 

Y OPT  degrees 

ecadr 

tIME2 

10 

SEC 

ECADR 

SAMPTiME 

11 

HOURS 

ECADR 

SAMPTIME 

11 

SECONDS 

ECADR 

DsPtEM2 

12 

WHOLE 

ECAdR 

DSPTeM2  ♦! 

12 

FRACTIONAL 

ECADR 

DSPTEM2  *2 

12 

WHOLE 

ecadr 

DELVX 

13 

GYRO  degrees 

ecadr 

DeLVX  42 

13 

qyro  degrees 

ECADR 

DELVX  44 

13 

GYRO  DEGREES 

ecadr 

PBIAjX 

19 

PIPA  BIAc 

ECADR 

PBlASY 

19 

PiPA  Bias 

ECADR 

P8IASZ 

19 

PIPA  bias 

ecadr 

PIPAgCFX 

15 

PIPA  SCALE  factor  ErrOR 

ECAdR 

P,PAScfY 

15 

p,PA  Scale  factor  eRR°R 

Ecadr 

PfPASCFZ 

15 

PiPA  SCALE  FACTOR  ERROR 

ecadr 

delr 

16 

POsItION 
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2322 

06*2373 

01002 

1 

2323 

06,2374 

01004 

1 

2324 

06,2375 

01006 

0 

232i$ 

06,2376 

OlOlO 

1 

2326 

06,2377 

01012 

0 

2327 

06,2400 

00722 

0 

2328 

06,2401 

00726 

1 

2329 

06.2402 

01014 

0 

233O 

06,2403 

OOyOe 

0 

2331 

06,2404 

00710 

1 

2332 

06,2405 

01016 

1 

2333 

06  2406 

OO7O6 

0 

2334 

06,2407 

00710 

1 

2335 

06,2410 

OO7I2 

0 

2336 

06,2411 

OO7O6 

0 

2337 

06,2412 

00710 

1 

2338 

06,2413 

00712 

0 

2339 

06,2414 

00000 

1 

2340 

06,2415 

00000 

1 

2341 

06,24l6 

00000 

1 

2342 

09,2417 

00000 

1 

2343 

06,2420 

00000 

1 

2344 

06,2421 

00000 

1 

A23A5 

A2346 

2347 

06,2422 

00302 

0 rutmxtab 

2348 

06,2423 

10302 

1 

2349 

06,2424 

00302 

0 

235O 

06,2425 

00006 

1 

2351 

06,2426 

00142 

0 

2352 

06,2427 

00202 

1 

2353 

06,2430 

00202 

1 

2354 

06,2431 

00206 

0 

2355 

06,2432 

00205 

0 

2356 

06,2433 

O6O43 

0 

2357 

06,2434 

10204 

0 

2358 

06,2435 

06143 

1 

2359 

q6,2436 

06i43 

1 

2360 

06,2437 

16347 

0 

2361 

06*2440 

12245 

1 

2362 

06,2441 

06345 

0 

2363 

06,2442 

16247 

1 

2364 

°6*2443 

16347 

0 

2365 

A2366 

06,2444 

12245 

1 

BY  NASA  202U00 
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User's  own  pace  no.  65 


ECADR 

delr 

♦ 2 

l6 

position 

ECADr 

delr 

♦ 4 

16 

position 

ECADR 

DELVeL 

17 

velocity 

ECADR 

delvel 

*2 

I7 

VELOCITY 

ECADR 

DELVEL 

*4 

17 

velocity 

ecadr 

tdec 

20 

time  weeks 

ECADR 

MEASQ 

20 

position 

ecadr 

measmode 

20 

Whole 

ECADR 

DSPTEMl 

21 

position 

ecadr 

DsPjEMl 

*2 

21 

velocity 

ecAdR 

0e*-TAQ 

21 

POSITION 

ECADR 

DsPtEMI 

22 

position 

ECADR 

dsptemi 

*2 

22 

POSITION 

ECADR 

DSPTEMl 

♦ 4 

22 

POSITION 

ecadr 

DsPlEMl 

23 

velocity 

ECAdR 

OSPTeMI 

,2 

23 

Velocity 

ECADR 

DSPTEMl 

23 

velocity 

OCT 

00000 

SPARE 

OCT 

00000 

SPARE 

OCT 

00000 

spare 

OCT 

00000 

SPARE 

OCT 

00000 

SPARE 

OCT 

00000 

spare 

END 

OF  IDADDTAB 

mixnoun  sf  Rout 

OCT 

00302 

01 

degrees,  y opt  degrees 

OCt 

10302 

02 

degrees*  Y opt  degrees,  seconds 

OCT 

00302 

03 

Degrees,  y opt  degrees 

OCT 

00000 

04 

OCTAL  only 

OCt 

00142 

05 

degrees*  elevation  Degrees 

OCT 

00202 

06 

degrees*  seconds 

OCT 

00202 

O7 

DEGREES*  SECONDS 

OCt 

00206 

10 

Y opt  degrees*  seconds 

OcT 

00205 

11 

hours.  Seconds 

OCT 

06°43 

12 

whole,  fractional,  whole 

OCt 

10204 

13 

GYRO  degrees  (For  each) 

OCT 

06143 

14 

PtPA  B,AS  (for  each* 

OCT 

06x43 

l5 

PIPA  scale  factor  error  (FOR  EACH) 

OCT 

16347 

U 

POSITION  (FOR  EACH) 

OCT 

12245 

I7 

VELOCITY  (FOR  EACH) 

OCt 

06345 

20 

time  weeks*  POsItION,  WHOLE 

OcT 

16247 

21 

poSiTtON,  Velocity,  poStT.on 

OCT 

16347 

22 

POSITION  (FOR  EACH) 

OCt 

12245 

23 

velocity  (FOR  EACH) 

eNd 

Op  rutmxtab 

275690 
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pinbaul  game  Buttons  and  lights 
P2367  Miscellaneous  service  routines  in  fixed/fixed 


USER'S  OmN  page  No.  66 


2368  9430  SETlOC  DATWAITl  +2 

R2369  SEtNCADr  E CAOR  ARRIVES  IN  A,  IT  IS  STORED  IN  NOUNCADR,  EBANK  BIts 

R2370  Are  set,  e acres  is  derived  and  put  into  nounadd. 


2371 

4430 

54  657 

1 

SETNCADR  TS 

nouncadr 

STORE  ECADR 

2372 

4431 

54  003 

0 

TS 

EBANk 

SET  ebank  bits 

2373 

4432 

7 4504 

0 

MASK 

L0W8 

2374 

4433 

6 4505 

0 

AD 

OCtIAOO 

2375 

4434 

54  13l 

0 

TS 

nounadd 

PUT  E ADRES  INTO  NOUNADD 

2376 

4435 

0 0002 

0 

TC 

Q 

R2377  SeTNADD 

GeTs  e cadR  from 

R237H 

E ADRES  AND  PUTS 

2379 

4436  3 

23gO 

4437  1 

nouncadr,  Sets  ebank  bits,  deRIVeS 
IT  into  nounadd, 

0657  0 SeTNAdD  CA  NOUNcAdR 

443l  I TCF  SETNCADR  ♦! 


R2381  SEtEr/^NK 

R2382 

E c^dr  arrives  in  a*  EbaNK 
derived  and  left  in  a. 

bIts  are  set. 

E aDRES  is 

2383 

4440 

54  003  0 SETEBANK  TS 

ebank 

2384 

4441 

7 4g04  0 

MASK 

L0W8 

2385 

4442 

6 4505  0 

AO 

OCT1400 

2386 

4443 

0 0002  0 

Tc 

Q 

2387 

4444 

00016 

0 

dIDI 

OCT 

16 

2388 

4445 

00011 

1 

R2d1 

OcT 

11 

2389 

4446 

00004 

0 

R3D1 

OCT 

4 

2390 

4447 

54  020 

1 

rights 

TS 

CYr 

2391 

4450 

4 0020 

1 

cs 

CYR 

23s2 

4451 

4 0020 

1 

cs 

CYR 

2393 

4452 

4 0020 

1 

Cs 

CYR 

2394 

4453 

4 0020 

1 

cs 

CYR 

23,5 

4454 

56  020 

0 

XCH 

CYR 

2396 

4455 

0 0002 

0 

TC 

0 

2397 

4456 

54  022 

0 

LEfT5 

TS 

CYL 

2398 

4457 

4 0022 

0 

CS 

CYL 

set  ebank  Bits 
E ADrES  left  in  a 
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2399 

4460 

4 0022 

0 

CS 

CYL 

2«00 

446 1 

4 0022 

0 

cs 

CYL 

2401 

4462 

4 0022 

0 

CS 

CYL 

2402 

4463 

56  022 

1 

XCH 

CYL 

2403 

4464 

0 0002 

0 

TC 

0 

2404 

4465 

6 OOOO 

1 SLEFT5 

Double 

2405 

4466 

6 0000 

1 

DDUbLe 

2406 

4467 

6 OOOO 

1 

DOUBLE 

2407 

4470 

6 OOOO 

1 

DOUBLE 

2408 

4471 

6 OOOO 

1 

DOUBLE 

2409 

4472 

0 0002 

0 

TC 

Q 

2410 

4473 

00037 

0 

LOWS 

OCT 

37 

2411 

4474 

01740 

0 

MID5 

OCt 

1790 

2412 

4475 

76000 

0 

HI5 

OCT 

76000 

2413 

4476 

0 4131 

0 

tcnovac 

TC 

novAc 

2414 

4477 

0 4251 

0 

TCWAlT 

TC 

WAlTLjST 

24l5 

4SO0 

0 4321 

0 

TCTSKOVR 

TC 

TASKOVER 

2416 

4501 

0 4142 

1 

tCfindvc 

tc 

FINDVAC 

2417 

4502 

30000 

1 

CHRPRIO 

OCT 

30000 

2418 

4503 

03777 

0 

LOwll 

OCT 

3777 

2419 

4504 

00377 

1 

LOWS 

OCT 

377 

2420 

45O5 

OI4OO 

1 

OCTI4OO 

OCT 

I4OO 

2421 

45O6 

00023 

0 

VdI 

OcT 

23 

2422 

45O7 

OOO2I 

1 

NDl 

OCT 

21 

2423 

4510 

00025 

0 

MDl 

OCT 

25 

2424 

4511 

00012 

1 

BiNcON 

DEC 

10 

2425 

4512 

3 7640 

1 

FALTON 

CA 

BIT7 

2426 

4513 

0 0006 

1 

EXTeNd 

2427 

45I4 

05  Oil 

1 

WOR 

DSALMOUT 

2428 

4515 

0 0002 

0 

TC 

0 

2429 

4516 

4 7640 

0 

fALTOf 

C5 

BIT7 

2430 

4517 

0 0006 

1 

Extend 

2431 

4520 

03  Oil 

1 

WANd 

dsalmout 

JUl  9*  1965 


(MAIN)  PAGE  201 


USER'S  °wN  PAGE  NOt  67 


MUST  STAY  here 


ExEC  priority  of  CHARIN 


turn  on  operator  Error  LIGHT 
BIT  7 OF  channel  11 

TURN  Off  operator  error  LIqHT 
bjt  7 OF  Channel  ii 
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Pinball  game  buttons  and  Lights 


USER'S  OWN  page  NO,  68 


2A32 

4521 

0 0002 

0 

TC 

0 

2433 

4522 

3 7642 

0 

RELDSPON  CAp 

BITS 

TURN  ON  Key  release  LIqHT 

2434 

4523 

0 0006 

1 

EXTEND 

2435 

4524 

05  Oil 

1 

WOR 

DSALMOUT 

BIT  5 OF  CHANNEL  11 

2436 

4525 

0 0002 

0 

TC 

0 

2437 

4526 

0 0006 

1 

LODSAmpT  extend 

2438 

4527 

3 0025 

0 

DCA 

TIMe2 

2439 

4530 

52  755 

1 

DXCH 

SAMPTIME 

2440 

4531 

0 0002 

0 

TC 

0 

2441 

4532 

0 0006  1 TpSLl 

extend 

SHIFTS  MpAC,  ♦!,  +2  LEFT  1 

2442 

4533 

3 0142  0 

dca 

MPAC 

Leaves  ovfino  set  to  ♦/-  i for  of/uf 

2443 

4534 

20  142  1 

DAS 

MPAC 

2444 

4535 

6 0140  1 

AD 

MPAC 

2445 

4536 

26  I4O  0 

ADS 

MPAC 

2446 

4537 

54  007  1 

T5 

7 

TS  A DOES  not  CHANGE  A ON  OF/yP* 

2447 

4540 

0 0002  0 

TC 

Q 

NO  NET  OF/UF 

2448 

454I 

54  105  1 

TS 

OVFIND 

OVFIND  set  to  */-  1 FOR  OF/UF 

2449 

4542 

0 0002  0 

TC 

0 

gASo 

2451 

4543 

3 7641 

0 

FLASHON  CAF 

BIT6 

TURN  ON  V/N  flash 

4544 

0 0006 

1 

extend 

BIT  6 OF  Channel  u 

2452 

4545 

05  Oil 

1 

WOR 

DSALMOUT 

2453 

4546 

0 0002 

0 

TC 

0 

2^54 

2455 

45‘»7 

4 764i  1 

FLAsHOFF  CS 

BIT6 

TURN  OFF 

V/N  FLASH 

4550 

0 0006  1 

extend 

2456 

4551 

03  Oil  1 

WANd 

DSALMOUT 

BIT  6 Op 

channel  11 

2457 

4552 

0 0002  0 

TC 

0 

275690 
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P2458 

R2A59 

R2A60 

R2461 

R2A62 

R2A63 

R2A64 

R2‘^65 

R2466 

R2A67 

R2468 

R2A69 


R2A70 

R2A71 

R2A72 

R2a73 

r2A7A 

R2A75 

r2«76 

R2477 

R2^78 

R2A79 

R24a0 

r2481 

R2A82 

R2A83 

R2A8A 

R2A85 

R2A86 


R2487 

R2A88 

R2a89 


R2A9O 

r2991 

R2A92 


PI^BAlu  GAmE  BUTTOmS  A^D  lights  USER'S  OW|M  PAGE  ^0,  69 

internal  routines  that  use  the  KEyBOApD  AND  DisPLAy  SYSTEM (THRU 
NVSUB)  mUST  TC  GRABDSP  BEFOREHAND  , TO  GRAB  THE  DISPLAY  SYSTE^  AnO 

make  it  busy  to  other  internal  users, 

when  finished  t there  must  be  a tC  FREEDSp  , Tq  RELEASE  THE 
SYSTEM  FOR  OTHER  INTERNAL  USERS, 


THE  calling  sequences  ARE 
L TC  GRABDSP 

L+1  return  here  WHEN  sYst^M  IS  ALREADY  GRABBED 

L+2  return  here  Means  you  have  iT 


L 

L + 2 


TC  NVSUB 

RETURN  here  IF  OPERATOR  HAS  INTERVENED 
RETURN  here  AFTER  EXECUTION 


A ROUTINE  Called  GRaBUSY  is  provided  (USE  IS  OPTIONAL)  TO  PUT  yOur 
JOB  T°  SLEEP  jNtIL  tHE  sYst^M  Is  FREED  BY  tHE  JOB  HOLDING  It» 

GRABuSY  CANNOT  Be  CALLED  FROM  £ MEMORYt  SINCE  JOBSLEEP  AND  JOBWAkE 
handle  only  fixed  MEMORYt 

YOUR  CADr  is  put  at  FIrST  available  slot  in  a waiting  list  (FIFO), 

THE  CALLING  SEQUENCE  IS 
CAP  WAkEECADW 

TC  gRABUSY 

A routine  called  NvSUBuSy  is  provided  (USE  IS  OPTIONAL)  TO  PuT 
yquR  jqB  To  Sleep  uwtil  the  oPeratoR  releases  it, 

NVSUBUSY  cannot  BE  CALLED  FROM  E MEMORYt  SINCE  JOBsLEEP  AND  JOBwAKE 
handle  ONLY  FIXED  MEMORY* 

YOUR  cadr  is  put 

ON  top  OF  A waiting  LIST  (FIFO),  IT  ALSO  TURNS  ON  KEy  RELEASE  LIGHt* 

THE  calling  sequence  IS 
CAF  wAkEFCADR 

tC  NVsuBgjY 


aftEr  a xC  freeDsP,  tHE  internal  interlock  Is  <ept  Busy  for  lo  seconds* 

after  WHICH  A CADR  iS  CALLED  FROM  THE  LIST,  ThiS  INSURES  THAT  ALL 

displays  waiting  will  be  visible. 


grablock  is  the  internal  interlock  for  the  use  of  the  keyboard 
and  display  system, 

♦0  free 
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pinball  game  buttons  and  Lights  user's  own  page  no.  70 

r2493  +1  SOME  internal  ROUTINE  HAS  GRABBED  DSP  5YST 

R2494  +2  some  internal  ROUTINE  HAS  GONE  TO  NVSUBUSY 


2495 

4553 

10  677 

0 

GRAbDSP  CCS 

GRABLqCK 

2496 

4554 

0 0002 

0 

TC 

0 

2497 

4555 

3 7696 

1 

CAF 

ONE 

2498 

4556 

54  677 

0 

TS 

GRABLOCK 

2499 

4557 

50  002 

0 

INDEX 

0 

2500 

4560 

0 0001 

0 

TC 

1 

2501 

4561 

3 6425 

1 

PREGBsY 

CAF 

LOWlO 

2502 

4562 

7 0002 

1 

MASK 

Q 

25O3 

4563 

6 0004 

0 

AD 

FBANK 

2504 

4564 

0 4102 

0 

GRABUsY 

T^ 

POstJUMP 

2505 

4565 

10000 

0 

cadr 

grabusyb 

250* 

2507 

04.3432 

04.3432 
54  001  1 

GRABUsYl 

SETLOC 

TS 

DOPROC 

L 

2508 

04.3433 

10  677 

0 

CCS 

GRABLOcK 

2509 

04.3434 

0 343T 

1 

TC 

♦ 3 

2510 

04.3435 

3 0001 

0 

CA 

L 

2511 

04,3436 

0 4105 

1 

TC 

bankjump 

2512 

O4 . 3437 

3 76a5 

1 

CAF 

TWO 

2513 

04.3440 

54  130 

1 

TS 

LSTPTR 

25l4 

04.3441 

50  130 

0 

INDEX 

LSTPTR 

2515 

04,3442 

10  702 

0 

CCS 

dsplist 

2516 

04.3443 

0 3445 

1 

TC 

*2 

25l7 

04.3444 

0 3450 

0 

Tc 

PUTINLST 

2518 

04  3445 

10  130 

1 

CCS 

lstptr 

2519 

04.3446 

0 3440 

1 

TC 

.6 

2520 

04.3447 

0 3514 

1 

Tc 

LSTpULL 

2521 

O4.345O 

3 0001 

0 

PUTINLST 

CA 

L 

2522 

04,3451 

50  130 

0 

INDEX 

LstPtP 

2523 

04.3452 

54  702 

0 

TS 

DSPLiST 

2524 

O4.3453 

0 4l64 

0 

TC 

JOBSLEEP 

already  grabbed,  return  to  L+1 
not  grabbed,  set  to  ♦! 

AND  RETURN  TO  L+2 


SPECIAL  entrance  FOR  ROuTl^Es  IN  FIXED 
BANKS  ONLY  DESiRiNq  ThE  FCADR  Of 
1 ♦ (LOC  FROM  WHICH  TC  PREGBSY  WAS  DONE) 
TO  BE  entered. 


STILL  grabbed 

not  Grabbed  so  do  direct  call 


search  list  for  first  Available  space 

FROM  bottom, 

SPACE  F^ONo 
DECREMENT  POINTER 


R25241  GRabWaIT  is  a SPErlAL  ENTRANCE  FOR  ROUTINES  IN  FIXEq  baNKS  ONLY.  IF 

R25242  System  is  not  grabbed,  ij  grabs  it  ^nd  returns  to  u*i  i l » loc  from 

R25243  wHiCh  ThE  TC  GRABWAiT  WAS  DONEi,  iF  SYSTEM  jS  GRABBED.  iT  PUTS  CALLING 
R25244  JOB  TO  SLEEP  WITH  L+i  GOING  INTO  LIST  FOR  EVENTUAL  WAKING  UP  WHEN 
R25245  sYsjEM  Is  FREED. 

2525  4566  SETLOC  GRaBUSY  +2 

25251  4566  10  677  0 GRABWAIt  CCs  GrABLOCK 

25252  4567  1 4561  0 TCF  PRegBSY  (;RABBeD*  PUT  L*1  jNTO  LjST.  qO  TO  SLeeP* 
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25253 

25254 

25255 

2^26 

2527 

252g 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

R25501 

R25502 

r25503 

R25504 

R25505 

2551 

25511 

25512 

25513 

25514 

25515 

25516 

25517 
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pinbaLl  Game  buttons  aND  lights 


usERis  Own  p^^ge  no.  71 


4570 

3 7646 

1 

CAF 

ONE 

4571 

54  677 

0 

TS 

GRabLOcK 

4572 

0 0002 

0 

TC 

0 

4573 

4 4600 

1 

PRENVBSY 

cs 

2K+3 

4574 

6 0002 

0 

AD 

0 

4575 

6 0004 

0 

AD 

FBANK 

4576 

0 4102 

0 

NVsuBuSY  T^ 

POStJuMP 

4577 

10001 

1 

cadR 

NVSUbSYB 

46(30 

02003 

0 

2K  + 3 

OCT 

2003 

04,3454 

SETlqC  PUTInlST 

04,3454 

54  OOl 

1 

NVSUBSYl 

TS 

L 

04,3455 

10  652 

1 

CCS 

DsPLOCK 

04,3456 

0 3461 

1 

TC 

♦ 3 

04,3457 

3 0001 

0 

CA 

L 

04,3460 

0 4105 

1 

TC 

BANKJUMP 

04,3461 

3 7645 

1 

car 

TWO 

04,3462 

54  677 

0 

TS 

GRABLOCK 

04 , 3463 

3 0001 

0 

CA 

L 

O4 , 3464 

56  7°A 

1 

XCH 

DSPLIST  *2 

04,3465 

56  703 

0 

XCH 

DsPLIst 

04,3466 

56  7OZ 

1 

XCH 

DSPLiST 

04,3467 

10  000 

0 

CCS 

A 

04,3470 

0 351A 

1 

TC 

LSTFuLL 

04,3471 

0 3473 

1 

TC 

42 

04,3472 

0 351A 

1 

TC 

LSTpULL 

04,3473 

0 4522 

0 

TC 

reldspon 

04,3474 

3 0001 

0 

CA 

L 

04,3475 

0 4164 

0 

endnvbsy 

TC 

JOBSLEEP 

not  Grabbed,  grAb  and  rEturn  to  l+i. 


SPECIAL  entrance  FOR  ROUTINES  IN  FIXED 

banks  Only  desiring  the  fcadr  ofilOc 
FROM  which  the  TC  PrENVBSY  WAS  DONE)  -? 
jO  BE  entered. 


test  if  really  locked  Out 

STiLL  BUSY 

DSPLOCK  » +0  so  return  DIRECTLY 
SgT  rOR  grabbed  state  ANd  NVSUBUSY  USg 


enter  CADR  into  first  position  of  list 
(Bottom) 


NVSBWAlT  IS  A SPECiA.  ENTRANCE  FOR  ROUTINES  IN  FIXED  BANkS  ONlY.  IF 
SYSTEM  IS  NOT  BUSY,  IT  EXECUTES  V/N  AND  RETURNS  TO  L+I  (Is  LOC  FROM 
WHICH  THE  TC  nVSBWAIT  WAS  DqnE),  IF  SYSTEM  IS  BUSY,  IT  pUTS  CALLING  JOB 
TO  SLeeP  WITH  L-1  GOING  INTO  LIST  FOR  eVeNTUAL  WAKING  UP  WHeN  SYSTeM 

is  not  Busy, 


4601 

SeTLOc 

NVSUbUSY 

4601 

54  IO7  0 

NVSBWAIT 

TS 

NVTEMP 

4602 

10  652  1 

CCs 

DsPLOCK 

4603 

1 4606  1 

tcf 

NVSBWTI 

46^4 

3 0002  0 

CA 

0 

4605 

1 4363  1 

tCF 

NVsUB 

4606 

24  002  0 

NVSbWTI 

INcR 

0 

4607 

1 4573  0 

TCF 

PRENvBSY 

BUSY 

FREE.  NVSUB  WILL  SAVE  L*1  FOR  RETURN 

aftEr  execution. 

L,2.  PReNVbSY  WILL  PUT  L-1  INTO  LIST  a^q 
GO  tO  sleep. 
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pInBALL  game  buttons  AnD  lights 


2552 

9610 

56  002 

0 

RELDSP 

XCH 

0 

2553 

4611 

54  130 

1 

TS 

RELREt 

2554 

4612 

3 7655 

0 

CAF 

NEQl 

2555 

4613 

6 0677 

1 

AD 

GRABLOCK 

2556 

4614 

0 0006 

1 

extend 

2557 

46l5 

6 4623 

1 

BZMF 

RELDSP2 

2558 

46x6 

0 4636 

0 

tc 

WKSEARCH 

2559 

4617 

0 4623 

1 

TC 

REl05P2 

2560 

4620 

0 4170 

0 

TC 

JOBWAKE 

2561 

4621 

3 7646 

1 

CAF 

one 

2562 

4622 

54  677 

0 

TS 

GRABlOCk 

25625 

4623 

0 0004 

0 

RELDSP2 

INHINT 

2563 

4624 

4 7642 

1 

CS 

BITS 

2564 

4625 

0 0006 

1 

EXTEND 

2565 

4626 

03  Oil 

1 

WAND 

DSALMOUT 

2566 

4627 

3 7653 

0 

CAF 

zero 

2567 

4630 

54  65Z 

1 

TS 

DSPLOCK 

2568 

4631 

0 0003 

1 

relint 

2569 

4632 

0 0130 

0 

TC 

RELRET 

257O 

4633 

56  002 

0 

reldspi 

XCH 

(3 

2571 

4634 

54  130 

1 

TS 

RELREt 

2573 

4635 

0 4623 

1 

TC 

RELDSP2 

2574 

4636 

3 7653 

0 

WkSEARCH  CAF 

ZERO 

2575 

4637 

56  702 

1 

XCH 

DSPLIST 

2576 

4640 

66  703 

0 

XCH 

DsPLIST 

*1 

2577 

4641 

56  704 

1 

XcH 

DSPLIST 

♦ 2 

2578 

4642 

0 0006 

1 

EXTEND 

2579 

4643 

1 4647 

1 

BZF 

*4 

ZSgO 

4644 

0 0004 

0 

INHINT 

2581 

4645 

50  002 

0 

INDEX 

0 

2582 

4646 

0 0001 

0 

TC 

1 

2583 

4647 

0 0002 

0 

Tc 

0 

2584 

4650 

56  002  0 

FREEDSP 

XCH 

0 

2585 

4651 

54  130  1 

TS 

FREERET 

2586 

4652 

0 0004  0 

INHINT 

2587 

4653 

3 4661  1 

CAP 

ShOTiME 

2588 

4654 

0 425I  0 

TC 

WAITLIST 

2589 

El 

EBANKs 

DsPCOuNt 

2590 

4655 

03476  1 

2CADR 

FREEWAlT 

C259O 

4656 

10001  1 

2591 

4657 

0 0003  1 

RELINt 

2592 

4660 

0 0130  0 

TC 

freeret 

2*93 

466]_ 

OlT5o  1 

SHOTIME 

OCT 

l75o 

JUL  9»  1965  (MAiN)  Page  2°6 


USER'S  OWN  pAGE  NO*  Y2 

SET  DSPLOCK  TO  *0*  TURN  rELDSP  LIGHT 
opFi  search  DsPLIST 


search  list  only  if  GRABLOCK  = +2 

(SOMEONE  used  NVSUBUSY) 

list  Empty 
LIST  not  empty 


turn  off  kfy  release  light 
(Bit  5 OF  Channel  id 


SET  DSPLOCK  TO  *0,  RELDSP  LIGHT  OFF, 
NO  LIST  search 


searches  list,  leaves  RESUlT  In  a, 

IF  EMPTY*  RETURN  TO  L+1, 

IF  NOt  EMPyY,  INHINt  ANO  REtURN  tO  L*2, 


EMPTY 
NOT  empty 
return  to  L+2 


RpTURN  TO  L*1 


275690 

2594 

2595 

2596 

25,7 

2598 

c2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2*08 

260q 

2610 

2611 

2612 
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pinball  game  Buttons  and  lights 


04,3476 

SeTLOC 

ENdNVBSY  ♦ 

04  3476 

3 4502  1 

FREEwAIT  caf 

chrprio 

04,3477 

0 4131  0 

TC 

novac 

El 

EBANKa 

DSPCOUNT 

04,3500 

03503  1 

2CADR 

FrEDSPDO 

04.3501 

04.3502 

10001  1 
0 4321  0 

TC 

T^SKOVER 

04,3503 

0 

4636 

0 

FRppSPpO  Tc 

WKSpARcH 

04,3504 

0 

3512 

1 

TC 

LSTEMPTy 

04,3505 

0 

4170 

0 

TC 

jobwake 

0^,3506 

0 

0003 

1 

RELINT 

04,3507 

3 

7646 

1 

CAF 

ONB 

04,3510 

54  677 

0 

TS 

GRABLOCK 

04,3511 

0 

4205 

1 

TC 

ENDOFJOB 

04,3512 

3 

7653 

0 

lstempty  caf 

zero 

04,3513 

0 

3510 

0 

TC 

-3 

04,3514 

0 4662  1 

LSTFULL 

TC 

abort 

04,3515 

01206  1 

OCt 

01206 

4662 

SETLOC 

SHOT  I ME  +1 

4662 

0 4662  1 

abort 

tc 

abort 

user's  OwN  page  no.  73 


called  By  t3RUPT 


called  BT  eXeCUTIVe 
list  empty 
List  not  empty 

SET  fqR  grabbed  Condition 


set  for  free  condition 


pinball  waiting  line  Full. 


«-ihh*FIX  LAtER*»«#» 


275690 

P2613 

R2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

26371 

263S 

26381 

2639 

2640 

2641 

C2641 

2642 

A26421 

A26422 

26i3 

2644 

2645 

A2646 

A2647 

2650 

A2651 

A2652 

26525 

A26526 
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pinball  GAME  BUTTONS  AND  LIGHTS 


vbtstlts  turns  on  all  Display  panel  lights,  after  5 sec,  it  turns 
off  the  caution  and  status  lights, 

05,3414  SETLOC  DSpMMEND  ♦! 


05,3414 

3 3453 

0 

VBTSTLTS 

CAF 

TSTCONl 

05,3415 

0 0006 

1 

extend 

05,3416 

05  Oil 

1 

WOR 

DSALMOUT 

05,3417 

3 3454 

1 

CAF 

TSTC0N2 

05,3420 

54  675 

1 

TS 

DSPTAB  *1 

05,3421 

3 7635 

0 

CAF 

BITIO 

05,3422 

0 0006 

1 

EXTEND 

05,3423 

05  013 

0 

WOR 

chan  13 

05,3424 

0 0004 

0 

INHINT 

05,3425 

3 7650 

0 

CAF 

TEN 

05,3426 

54  103 

1 

TSTLTSl 

TS 

ERCNT 

05*3427 

4 345I 

0 

CS 

FULLDSP 

05,3430 

50  103 

0 

INDEX 

ERCNT 

05,3431 

54  662 

1 

TS 

DSPTAB 

05,3432 

10  103 

1 

CCS 

ERCNT 

05,3433 

0 3426 

1 

TC 

TSTLTSl 

05,3434 

4 3452 

0 

CS 

FULLdSPI 

05,3435 

54  663 

0 

TS 

DSPTAB  +1 

05,3436 

54  666 

0 

TS 

DsPtAB  +4 

05,3437 

54  670 

1 

TS 

DSPTAB  *6 

05,3440 

3 7647 

0 

CAF 

eleven 

05,3441 

54  656 

0 

TS 

NOUT 

05,3442 

0 0003 

1 

RELiNT 

05,3443 

3 3456 

0 

CAF 

SHOLTS 

05,3444 

0 0004 

0 

INHINT 

05,3445 

0 4251 

0 

Tc 

WAITLIST 

El 

EBANKs 

DSPTAB 

05,3446 

03457 

1 

2CADR 

TSTLTS2 

05*3447 

12001 

0 

05,3450 

0 4205 

1 

tC 

endofjob 

05,3^51 

05.3452 

05.3453 

05675  0 
07675  1 

00174  0 

FULLDSP 

FULLDSpl 

TSTcONl 

OCT 

§cS' 

05675 

07675 

OOI74 

05,3454 

4O777  1 

TSTC0N2 

OCT 

40777 

05,3455 

00114  0 

TSTC0N3 

OCT 

00114 

USER'S  Own  page  no.  74 


TURN  on  uplink  ACTIVITY,  TEMP,  KEY  RLSE, 
V/N  flash,  operator  error, 

turn  on  auto,  hold,  no  ATT,  SPARE, 
gimbal  lock,  spare,  tracker,  prog  alm, 
TURN  ON  Test  alarm  outbit 


TURN  ON  3 PLUS  SIGNS 


DsPLOCK  Is  left  BysY  (FROM  KEYBOARD 
ACTiON)  UNTiL  TSTLTS3  TO  iNSURE  ThAT 
LIGHTS  test  will  BE  SEEN. 


DISPLAY  ALL  8JS 
DlSpLAY  All  SIS  AnD  ♦ 
cHaN  11  bits  3-7 

uplink  activity,  temp,  KEy  RLSE 
V/N  flASh,  operator  error, 

DSPTAB*11D  BITS  1-g 

AUjO,  HOLD,  FREE,  NO  Ajt'  sP^RE* 

5IMBAL  LOCK,  spare*  TRAcKeR*  PROq  ALM, 
CHAN  U SITS 

UPLiN,^  ACTIVITY,  TeMP,  OPERATOR  ERROR, 


PAGE  20<5 
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PiNball  (5AMe  buttons  and  Liq^TS 


USER'S  OWN  page  no,  75 


2653 

05,3456 

00764  1 

sholts 

OCt 

764 

26531 

05,3457 

3 4502  1 

tstltsz 

CAF 

ChRPRIO 

26532 

05,3460 

0 4131  0 

TC 

NOVAC 

26533 

El 

E8ANK» 

DSPTAB 

26534 

05,3461 

03464  1 

2cADR 

TSTLTS3 

f26534 

05,3462 

12001  0 

26535 

05,3463 

0 4321  0 

TC 

TaSKOVER 

2654 

05,3464 

4 3455 

1 

TSTLTS3 

TSTcON3 

2655 

05,3465 

0 0006 

1 

EXTEND 

2657 

05,3466 

03  Oil 

1 

wand 

dsalmout 

2658 

05,3467 

4 7635 

1 

cs 

BITIO 

2659 

05,3470 

0 0006 

1 

extend 

2660 

05,3471 

03  013 

0 

WANd 

CHAN13 

2661 

05  3472 

3 7630 

0 

CAF 

BIT15 

2662 

05,3473 

54  675 

1 

TS 

DSPTAB 

2663 

05,3474 

0 ZOOl 

1 

TC 

DSPMM 

2664 

05,3475 

0 4102 

0 

tc 

postJu^p 

2665 

3 

05,3476 

11273 

1 

cadr 

VBTeRM 

A2667 

A2668 


4>11D 


5 SEC 


called  By  waitlist 


called  E*^EC'JTIVc 

TURN  OFF  UPLINK  ACTIVITY,  TEMP, 

operator  error, 

TURN  OFF  TEST  ALARM  OUTBiT 


TURN  OFF  Auto,  hold  free  no  ATT,  SPARE 
GIMBAL  L0C<,  spare,  TRACkER,  prog  alm 
redisplay  C(MODREG) 

turn  off  key  rLsE  light  (AND  SEARCH  List 
IF  APPROPRjATe), 

turn  off  v/n  flash,  set  LOADSTAT  for 
FOR  terminate  condition,  and  60  TO 
RECALTST.  finally  DO  TC  ENDOFJOB, 


27S690 

INS 

0009 

ROOlO 

oon 

0012 

0013 

0014 

0015 

0016 

0017 

Room 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

003, 

0038 

0039 

OO4O 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

OO49 

0050 

0051 

OO52 

0053 

0054 

OO55 
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agc  blk2  instruction  check 


addresses  of  erasable  registers 


4663 

SETLOC 

ABORT  ♦! 

:gisters 

4663 

01034 

1 

ADRsl 

ADRES 

KEEPl 

4664 

01035 

0 

ADRS2 

ADRES 

KEEP2 

9665 

01036 

0 

ADRS3 

ADRES 

KEEPS 

4666 

02411 

1 

ADRS4 

ADRES 

SELFl 

4667 

02417 

1 

ADRS5 

ADRES 

SELF2 

4670 

04725 

0 

A0RS6 

ADRES 

5+MAX 

4671 

02473 

0 

ADRS7 

ADRES 

SELF3 

IT  the 

instructions  CHfCK 

4672 

00001 

0 

SBITl 

OCTAL 

00001 

4673 

00002 

0 

SBIT2 

OCTAL 

00002 

4674 

00004 

0 

50IT3 

OCTAL 

OOOO4 

4675 

00010 

0 

sbita 

octal 

00010 

4676 

00020 

0 

SBIT5 

OCTAL 

00020 

4677 

OOO4O 

0 

SBIT6 

OCTAL 

00040 

4700 

00100 

0 

sbit? 

OCjAL 

00100 

4701 

00200 

0 

SBiTS 

octal 

00200 

4702 

00400 

0 

SBIT9 

OCTAL 

00400 

4703 

01000 

0 

SBITIO 

octal 

01000 

4704 

02000 

0 

SBITU 

OcTaL 

02000 

4705 

04000 

0 

SBIT12 

octal 

04000 

47O6 

10000 

0 

SBIT13 

OCTAL 

10000 

47O7 

20000 

0 

SBITU 

OCTAL 

20000 

4710 

40000 

0 

50ITI5 

octal 

40000 

4711 

00000 

1 

S*ZeRO 

octal 

00000  ' 

4712 

00001 

0 

S+1 

OCTAL 

OOOOl 

47l3 

00002 

0 

S*z 

OCyAL 

00002 

4714 

00003 

1 

S*3 

octal 

00003 

47I5 

00004 

0 

S + 4 

OCTAL 

OOOO4 

4716 

00005 

1 

S*5 

octal 

00005 

4717 

00006 

1 

S46 

OCTAL 

00006 

4720 

OOOO7 

0 

S*7 

OCTAL 

OOOO7 

4721 

00077 

1 

S^BIjs 

OCtAL 

00077 

4722 

00177 

0 

57BITS 

octal 

00177 

4723 

I7777 

0 

513BITS 

OCTAL 

I7777 

4724 

25252 

0 

SODD 

OCtAL 

25252 

4725 

37777 

1 

s+max 

Octal 

37777 

4726 

4OOOO 

0 

S-MAX 

OCTAL 

40000 

4727 

40400 

1 

ALARMCON  OCtAL 

40400 

4730 

52500 

0 

SiNOUTl 

OcTaL 

52500 

4731 

52525 

1 

SEVENS 

OCTAL 

52525 

4732 

52552 

1 

5InoUT2 

OCTAL 

52552 

4733 

57761 

0 

CYRcON 

OcTaL 

57761 

4734 

77725 

1 

SIN0UT3 

OCTAL 

77725 

4735 

77760 

0 

S-15 

OCyAL 

77760 

4736 

77761 

1 

5.14 

OcTaL 

77761 

4737 

7777° 

1 

S"7 

OCTAL 

7777O 

USER’S  OWN  PAGE  NO.  1 


jEVEN  ONE  BIjs 


EIGHT  ONE  BITS 
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INS 

0056 

0057 
0068 
0059 
00^0 
0061 
0062 

R0063 

0069 

0065 

R0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 
0079 

0075 

0076 

0077 

0078 

0079 

0080 
0081 


00g2 

0083 

0089 

008? 

0086 

0087 

0088 

0089 

0090 

R0091 

R0092 

0093 

0099 

0095 

0096 

0097 

0098 


yul  System  for  blK2; 

REVISION 

0 OF  PROGRAM  RExRED99  By 

NASA  2021100  JuL  9*  1965  (MAIN) 

AGC  BLK2  instruction 

CHECK 

USER'S  OWN  page  NO.  2 

9790 

77771  0 

S.6 

octal 

77771 

9791 

77772  0 

S-5 

OCTAL 

77772 

9792 

77773  1 

S-A 

octal 

77773 

9793 

77779  0 

S-3 

OCTAL 

77779 

9799 

77775  I 

S-2 

OCTAL 

77775 

9795 

77776  1 

S"I 

octal 

77776 

97A6 

77777  0 

S-ZeRO 

OCTAL 

77777 

NEvT  TwO  constants  ArE  uSED  IN 

the  DEvIOE  subroutine 

9797 

19000  1 

DVICON 

octal 

14000 

9750 

37776  0 

DV2C0N 

OCTAL 

37776 

next  twq  Constants  are  addressess  used  by  extracqOe  inDex  instructions 


9751 

09712 

1 

ADRS'*1 

adres 

S.l 

9752 

09797 

1 

ADRsDVI 

ADREs 

DVICON 

9733 

9 0000 

0 

cs 

A 

9759 

10  000 

0 

-ochk 

CCS 

A 

9755 

1 9770 

1 

TCF 

ERRORS 

9756 

1 977O 

1 

TCF 

ERRORS 

9757 

1 9770 

1 

TCF 

ERRORS 

9760 

0 0002 

0 

TC 

0 

9761 

A 0000 

0 

CS 

A 

9762 

10  000 

0 

-ICHK 

CCS 

A 

9763 

1 977O 

1 

TcF 

errors 

9769 

1 9770 

1 

TCF 

ERRORS 

9765 

10  000 

0 

CCS 

A 

9766 

1 9770 

1 

TcF 

errors 

9767 

0 0002 

0 

TC 

0 

9770 

56  002 

0 

ERRORS 

XCH 

0 

9771 

55*099 

1 

TS 

SFAIL 

9772 

25*095 

1 

INCR 

ercount 

9773 

0 0009 

0 

INHINT 

9779 

9 9727 

0 

CS 

AlArmCon 

9775 

7 0675 

1 

Mask 

dSPTaB  .Up 

977g 

6 9727 

1 

AD 

ALARMCON 

9777 

59  675 

1 

TS 

DSPTAB  .lip 

5000 

0 0003 

1 

ReLINT 

IF  C(cMoDE)  Is  +NON-ZERO  sTArt  CHECKING  AGAIN  AT  TCCHK 
Ip  C(SMOde>  is  ♦ PUT  +0  IN  SMOPE  ANp  IpLf 


5001 

3 1097 

0 

CA 

SMODE 

5002 

0 0006 

1 

extend 

5OO3 

6 5005 

1 

jzme 

_SIO£CtlK — 

5009 

0 5010 

0 

tc 

SMODECHK 

5005 

3 9711 

1 

STOPChK  CA 

s+zero 

5006 

55*097 

1 

TS 

SMODE 

SAvE  Q for  failure  LOCATION 

keep  track  Of  number  of  malfunctions 

TURN  ON  program  ALARM  LIGHT 
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INS 

AGC  BLK2  INSTRUCTION 

CHECK 

0099 

5007 

0 4224 

1 

TC 

CHECKNJ 

0100 

5010 

11*047 

1 

SMOdeCHK 

CCS 

SMODE 

0101 

5011 

0 501A 

1 

TC 

♦ 3 

0102 

5012 

0 5007 

0 

TC 

SMODECHk 

0103 

5013 

0 501A 

1 

TC 

♦ 1 

0104 

5014 

0 4224 

1 

TC 

CHECKNJ 

0105 

5015 

3 5017 

1 

CAF 

STRTCHk 

0106 

5016 

0 4105 

1 

TC 

bankjump 

0107 

5017 

16003 

0 

STRtCHK 

CADR 

TCCHK 

0136 

07.2000 

SeTLOC 

26000 

01361 

07,2000 

3 4711 

1 

CA 

S^zERO 

01362 

07.2001 

55*046 

0 

TS 

ERCOUNT 

01363 

07.2002 

55*046 

0 

TS 

SCOUNT 

50137 

NORMAL  USE  OF  TC  AND 

TCF 

0138 

07.2003 

0 2005 

0 

TCCHK 

TC 

♦2 

0139 

07.2004 

0 2011 

0 

TC 

CCSCHK 

0140 

07.2005 

1 2007 

0 

TcF 

42 

0141 

07.2006 

0 4770 

0 

TC 

ERRORS 

0142 

07.2007 

0 0002 

0 

TC 

Q 

0143 

07.2010 

0 4770 

0 

TC 

ERRORS 

,0144 

normal  USE  OF  CA.  CS.  AnD  CCS 

01441 

07.2011 

3 4743  0 CC5CHK 

CA 

S-3 

0145 

07,2012 

55*034  0 

TS 

KEEPl 

0146 

07.2013 

11*034  0 

CCS 

keepi 

0147 

07.2014 

0 477O  0 

TC 

ERRORS 

014fl 

07.2015 

0 4770  0 

TC 

ERRORS 

0149 

07.2016 

0 2020  1 

TC 

42 

0150 

07.2017 

0 4770  0 

TC 

errors 

0151 

07.2020 

10  000  0 

CCS 

A 

0152 

07.2021 

0 2025  1 

TC 

44 

0153 

07.2022 

0 4770  0 

Tc 

pRRORS 

OI54 

O7.2023 

0 477O  0 

TC 

ERRORS 

0155 

07.2024 

0 4770  0 

tc 

errors 

0156 

07.2025 

10  000  0 

CCS 

A 

OI57 

O7.ZOZ6 

0 2032  1 

TC 

*4 

015r 

07.2027 

0 4770  0 

tC 

Errors 

0159 

07.2030 

0 477O  0 

Tc 

errors 

0160 

O7.2O3I 

0 477O  0 

TC 

ERRORS 

0161 

07.2032 

10  000  0 

CCs 

A 

0162 

07.2033 

0 477O  0 

Tc 

errors 

0163 

O7.2O34 

0 2037  1 

TC 

*3 

0164 

07.2035 

0 4770  0 

tC 

errors 

0165 

07.2036 

0 477O  0 

TC 

errors 

0166 

O7.2O37 

4 0000  0 

CS 

A 

0167 

07.2040 

10  000  0 

CCs 

A 

0168 

07.2041 

0 477O  0 

Tc 

errors 

USERiS  OWN  PAGE  NO.  3 
f-0 

-<  o 
- o 

TO  START  OF  CHECKING  ROUTINES 
INITIALIZE  COUNT  REGISTER 


CIA)  s+2»  RESULT  OF  CCS  -NUMBER 


CIA)  s ♦!.  Result  of  ccs  ♦ number 


CIA)  a +0,  REsuLt  of  CCs  ♦ NyMBER 


CIA)  a -0,  resuLt  of  CCs  +0 
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[NS 

0169 

AGC  BLK2  INSTRUCTION  CHECK 

07*2042 

0 4770 

0 

TC 

0170 

07,2043 

0 4770 

0 

TC 

OI7I 

07*2044 

10  000 

0 

CCS 

0172 

07*2045 

0 4770 

0 

TC 

0173 

07*2046 

0 2051 

1 

TC 

0174 

07*2047 

0 4770 

0 

Tc 

OI75 

07*2050 

0 477O 

0 

TC 

b0176 

0177 

NOrMAL  use  qF  mask 

^ 07*2051 

4 4746 

1 

MSKcHK 

cS 

0178 

07,2052 

7 4746 

1 

MASK 

0179 

07,2053 

0 4753 

1 

TC 

0180 

07*2054 

4 4711 

0 

CS 

Olsl 

07*2055 

7 A7II 

0 

MASK 

0182 

07*2056 

0 4753 

1 

tC 

0183 

07*2057 

3 4711 

1 

CA 

0104 

07*2060 

7 47II 

0 

MASK 

0185 

07*2061 

0 4753 

1 

tc 

0186 

07*2062 

3 4746 

0 

CA 

0187 

07*20*3 

7 ,7,6 

1 

MASK 

0188 

07*2064 

0 4754 

0 

TC 

R0189 

R0190 

NO  edit  cfATURf  Of  MASK  IS  CHeCKeD 
BItS  9-lA  OF  wRItE  LINEs  GO  76  Bljs  1-7 

OF  EDOP 

OI9I 

07,2065 

3 4746 

0 

CA 

01,2 

07*2066 

54  023 

1 

TS 

0193 

07*2067 

7 0023 

1 

MASK 

0194 

07*2070 

55'034 

0 

TS 

0195 

07*20Ti 

7 0023 

1 

MASK 

0196 

07*2072 

4 0000 

0 

CS 

OI97 

07*2073 

6 1034 

1 

AD 

0198 

07*Z0T, 

0 ,75,  0 

TC 

,01981 

01982 

check  MASK  OE  *N  SC  rEGISTEr 
07*2075 

3 4712 

1 

CA 

01983 

07*2076 

54  001 

1 

TS 

0198, 

07*2077 

3 4746 
7 0601 

0 

CA 

01985 

07*2100 

1 

mask 

OI986 

07*2161 

0 4761 

0 

Tc 

r0199 

0200 

normal  use  of  XCH,  AD*  AND  TS 
07*2102 

3 4725 

0 

CA 

0201 

07*2103 

55*034 

0 

TS 

0202 

07*2104 

6 1034 

1 

AD 

0203 

07*2105 

55*035 

1 

TS 

020, 

07*2100 

0 4770 

0 

TC 

0205 

07*2167 

0 4761 

0 

TC 

0206 

07*2110 

57*034 

1 

XcH 

0207 

07,2111 

4 0000 

0 

CS 

0208 

07;21l2 

6 0000 

1 

AD 

0209 

07*2113 

55*036 

1 

TS 

0210 

07*2114 

0 4^70 

0 

TC 

NASA  2021100 
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USER’S  OWN  page  no,  4 


ERRORS 

ERRORS 

A 

ERRORS 
♦ 3 

errors 

ERRORS 

result  of  CCS  -0 

S-ZeRO 
5-zERO 
-OCHk  -1 
S+ZeRO 

00000,  77777 

S+ZERO 
-OCHK  -1 

77777*  00000 

s+zero 

S*ZERO 

00000*  00000 

-OCHK  -1 

s-zero 

S-ZERO 

-OCHK 

77777,  77777 

S.ZERO 

EDOP 

EDOP 

KEEPl 

EDOP 

A 

keePI 

-OCHK 

s*i 

L 

S-ZERO 

L 

-IcHK  -1 

77777 

00177 

00177 

00177 

00177 

77600 

77777 

S*MaX 

KEEPl 

37777 

KEEpl 

KeeP2 

ERRORS 

01  - 37776 
37776 

-ICHK  -1 
KeePI 
A 
A 

KeeP3 

ERRORS 

SKeePI  now  *0 

40000 
10  , 00001 
40001*  cU)  S -1 
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INS  AQC  BLK2  INsjRuCtION  CHECK 


0211 

07,2115 

6 1036 

0 

AD 

KEEPS 

02i2 

07,2, i6 

6 iq35 

0 

AD 

KEEP2 

0213 

07,2117 

6 1034 

1 

AD 

KEEPl 

0214 

07,2120 

55*037 

0 

TS 

KEEP4 

0215 

07,2121 

4 1037 

0 

CS 

KEEP4 

0216 

07,2122 

0 4761 

0 

TC 

-ICHK  -1 

R0217 

normal  use  of  INCR 

R0218 

NOT  checking  counter 

INTERRUPT 

021g 

O', 2123 

3 4725 

0 

CA 

S+MAX 

0220 

07,2124 

55*034 

0 

TS 

KEEPl 

0221 

07,2125 

25*03A 

1 

INCR 

KEEPl 

0222 

07,2126 

25*034 

1 

INCR 

KEEPl 

0223 

Of, 2127 

25*034 

1 

INCr 

KEEPl 

0224 

07,2130 

6 9726 

0 

AD 

S-MAX 

0225 

07,2131 

0 4T54 

0 

TC 

-OCHK 

0226 

07,2132 

4 1034 

0 

CS 

KEEpl 

0227 

07,2133 

55*034 

0 

TS 

KeePI 

0228 

07,2134 

25*034 

1 

INCR 

KEEPi 

0229 

07,2135 

3 1034 

1 

CA 

KEEpl 

0230 

07,2136 

0 4762 

0 

TC 

-ichk 

R02301 

CHECK  INCREMENT  OF  AN  SC  REGISTER 

02302 

07,2137 

3 4744 

1 

CA 

5-Z 

02303 

07,2140 

54  001 

1 

TS 

L 

0230^ 

07,2141 

24  OOl 

0 

INCR 

L 

02305 

07,2142 

3 0001 

0 

CA 

L 

02306 

07,2143 

0 4762 

0 

TC 

-Ichk 

R0Z31 

normal  use  of  ADs 

0232 

07,2144 

3 47O6 

1 

CA 

5BIT13 

0233 

07,2145 

55*034 

0 

TS 

KeePI 

0234 

07,2146 

27*034 

0 

ADS 

KEEPl 

0235 

07,2147 

27*034 

0 

ADS 

KEEpl 

0236 

07,2150 

55*035 

1 

TS 

KceP2 

ERRORS 

O23T 

07,21bl 

0 4T70 

0 

TC 

0238 

07,2152 

4 1034 

0 

CS 

KEEpl 

0239 

07,2153 

0 4754 

0 

Tc 

-OcHK 

R02391 

CHECKS  ADs  0^  *N  SC 

register 

02392 

07,2154 

3 4723 

0 

CA 

513BITS 

I- 

023g3 

07,2155 

54  001 

1 

TS 

02394 

07*2156 

6 47I2 

1 

AD 

S + 1 

02395 

07,2157 

26  001 

1 

ADS 

L 

02396 

07,2160 

6 4726 

0 

AD 

S-MaX 

02397 

07, 2161 

0 4754 

0 

TC 

-OCHK 

02398 

07,2162 

4 0001 

1 

CS 

L 

023981 

07,2163 

6 4725 

0 

AD 

S+MaX 

02399 

07,2164 

0 4754 

0 

TC 

-OCHK 

R0240 

normal  use  Of  lxch 

O24I 

07,2165 

3 4712 

1 

CA 

S + 1 

JUl  9*  1965  (MAIN) 


USER'S  Own  Page  no,  5 

C(A)  n 40000 
C(A)  = -1 
C(A)  » -I 

-1 

*1 


37777 

40 

41 
*2 

CHECK  C(A)  has  not  CHANGED 

• 2 
-1 


10000 

20000 

OV  WITH  +0 


17777 

CIA)  = 2O000 
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JUL  9*  1965  (MAIN) 


INS  AGC  BLK2  INSTRUCTION  CHECK 


USER'S  OwN  PAGE  NO, 


0242 

07 

2166 

55'034 

0 

TS 

keepi 

0243 

07 

Zl(,f 

23*034 

1 

LXCH 

KEEPl 

♦ 1 IN  L 

0244 

07 

2170 

4 0000 

0 

CS 

A 

0245 

07 

2171 

55*035 

1 

TS 

KeePZ 

-1  IN  KeePZ 

0246 

07 

2172 

23*035 

0 

LXCH 

KEEP2 

L a -1,  KEEP2 

0247 

07 

2173 

4 1035 

1 

CS 

KEEP2 

0248 

O7 

2174 

0 476Z 

0 

TC 

-ICHK 

0249 

07 

2175 

3 0001 

0 

CA 

L 

0250 

O7 

2176 

0 4762 

0 

TC 

-ichk 

R0251 

underflow  OuERFLOw 

5 los7  in  l register 

0252 

07 

2177 

3 4725 

0 

CA 

5+MAX 

0253 

O7 

2200 

6 0000 

1 

AO 

A 

0254 

07 

2201 

54  001 

1 

IS 

L 

OV  with  37776 

0265 

07 

2202 

0 4770 

0 

tc 

errors 

0256 

O7 

2203 

4 4725 

1 

CS 

S*MAX 

0257 

07 

2204 

6 0000 

1 

AD 

A 

UV  WItH  40001 

0258 

07 

2205 

22  000 

1 

LXcH 

A 

C(A)  a 37776, 

0259 

07 

2206 

55*034 

0 

TS 

KEEPI 

37776 

0260 

07 

2207 

0 2211 

1 

TC 

♦ 2 

0261 

07 

2210 

0 4770 

0 

Tc 

pRRORS 

0262 

Or 

2211 

3 0001 

0 

CA 

L 

0263 

0? 

2212 

55*035 

1 

TS 

KEEP2 

40001 

0264 

07 

2213 

0 2215 

0 

TC 

♦ 2 

0265 

07 

2214 

0 4770 

0 

Tc 

errors 

0266 

O7 

2215 

6 1034 

1 

AD 

KEEPI 

-0 

0267 

07 

2216 

0 4754 

0 

TC 

-OCHK 

R0268 

NOrMaL  use  of  qXcH 

0269 

07 

2217 

3 4725 

0 

CA 

S»MAx 

0270 

07 

2220 

55*035 

1 

TS 

KeeP2 

37777*  K+1 

0271 

07 

2221 

4 0000 

0 

CS 

A 

0272 

Or 

2222 

54  001 

1 

TS 

L 

4OOOO 

0273 

O7 

2223 

6 47IZ 

1 

AD 

s+i 

0274 

07 

2224 

55*034 

0 

TS 

KEEPI 

4OOOI,  K 

0275 

07 

2225 

4 0000 

0 

CS 

A 

37776 

0276 

07 

2226 

53*035 

1 

DXCH 

Keepi 

R0277 

A ■ 40001*  L = 37777 

KEEPi 

37776*  KEEP2  = 

40000 

0278 

07 

2227 

6 OQOl 

0 

AD 

L 

0279 

07 

2230 

0 4761 

0 

TC 

-ichk  -1 

0280 

07 

2231 

3 IO34 

1 

CA 

KEEPl 

0281 

07 

2232 

6 1035 

0 

AD 

KEEp2 

0282 

07 

2233 

0 4762 

0 

Tc 

-ichk 

R0283 

normal  uSE  of  DAs  (6 

CHECKS) 

R0264 

IF  Address  Of  k dOes 

NOT  a Zero*  c(L 

♦0  and  C(A)  a 

Net  overflow 

R02®5 

C(A)  * *0  IF  NO  OVERFLOW  OR  UNDERFLOW 

b0286 

DAD4+  WITH  NO  oVErFLoW 

0287 

07 

*2234 

3 4723 

0 

das**  CAF 

S13BITS 

0288 

07 

,2235 

55*034 

0 

TS 

KEEPl 

17777 

PAGE  215 


275690 


YU|_  system  FoR  BuK2I  REVISIqn  0 oF  PRoGRAm  RETRED44  BY 


JNs 

AGC  BLK2  instruction  CHECK 

0289 

07*2236 

55*035 

1 

TS 

0290 

07*2237 

54  001 

1 

TS 

0291 

07,2240 

6 4712 

1 

AO 

0292 

07,2241 

21'035 

1 

das 

R0293 

CtKEEPl)  a 37777,  C(KEEP2)  a 

377776 

0294 

07,2242 

0 4753 

1 

TC 

0295 

07,2243 

56  001 

0 

XCH 

0296 

07,2244 

0 4753 

1 

TC 

0297 

07,2245 

4 1034 

0 

cs 

0298 

07*2246 

6 1035 

0 

ad 

0299 

07*2247 

0 4762 

0 

TC 

R0300 

DAS+*  WITH  OVERFLOW 

0301 

07*2250 

3 4725 

0 

DA5++0V 

CA 

0302 

07,2251 

55*034 

0 

TS 

0303 

07,2252 

55*036 

1 

TS 

O3O9 

07,2253 

54  001 

1 

TS 

0305 

07,2254 

3 4712 

1 

CA 

0306 

07*2255 

21*035 

1 

das 

RO3OT 

C(KEEPi)  a ♦!,  C(KEEP2)  = 37776*  C(A) 

a 

*1* 

0308 

07*2256 

0 4761 

0 

TC 

0309 

07*2257 

56  001 

0 

XcH 

0310 

07,2260 

0 4753 

1 

TC 

0311 

07*2261 

4 1034 

0 

CS 

0312 

07*2262 

0 4762 

0 

TC 

0313 

07*2263 

3 4726 

0 

CA 

03U 

07*2264 

6 1035 

0 

AD 

O3I5 

07*2265 

0 4762 

0 

TC 

p03l6 

DAS  mixed  signs 

0317 

07*2266 

3 4725 

0 

DAS+— ♦ 

CA 

0318 

07,2267 

55*034 

0 

TS 

0319 

07*2270 

4 0000 

0 

CS 

0320 

07*2271 

55*035 

1 

TS 

0321 

07*2272 

4 0000 

0 

CS 

0322 

07*2273 

6 4745 

0 

AD 

0323 

07*2274 

54  001 

1 

TS 

0324 

07,2275 

4 0000 

0 

CS 

0325 

07,2276 

21*035 

1 

DAs 

R0326 

C(kEEPI)  a *1*  C(KeEP2<  a -1 

0327 

0^*2277 

0 4753 

1 

TC 

0328 

07*2300 

56  001 

0 

XCH 

0329 

07*2301 

0 4753 

1 

Tc 

O33O 

07*2302 

3 IO34 

1 

CA 

0331 

07,2303 

0 4761 

0 

TC 

0332 

07,2304 

3 1035 

0 

CA 

O333 

07,2305 

0 4762 

0 

TC 

DAS—  WITH  NO  Underflow 

0335 

07,2306 

4 4723 

1 

DAS— 

cS 

0336 

07  2307 

55*034 

0 

TS 

0337 

07,2310 

55*035 

1 

TS 

0338 

07*2311 

54  001 

1 

TS 

NASA  2021100 

JUl  9*  1965  (mAIn) 

USER'S  OWN  PAGE  NO.  7 

KEEPZ 

17777 

L 

17777 

S+1 

20000 

keepi 

-OCHK  -1 
L 

-OCHK  -1 


KEEPI 

KEEPZ 

-ICHK 

S*MAX 

keepi 

37777 

KEEPZ 

37777 

L 

37777 

S.l 

KeePI 

.1 

-ICHK  -1 

L 

-OCHK  -1 

KEEPl 

-ICHK 

5-MAX 

KEEPZ 

-ICHK 


S.MaX 

KEEPI 

A 

37777 

KeePZ 

A 

S.l 

4OOOO 

L 

37776 

A 

KEEpl 

-OCHK  -1 

-OchK  -1 
KEEPi 
-ICHK  -1 
KeePZ 
-ICHK 

4OOOI 

S13BITS 

KEEPI 

60000 

KEEPZ 

60000 

L 

60000 
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iNS 

0339 

0340 

RO34I 

0342 

0343 

0344 

0345 

0346 

0347 

R0348 

0349 

0350 

0351 

0352 

0353 

0354 

R0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

d0364 

^0365 

0366 

0367 

0368 

0369 

0370 

R0371 

0372 

0373 

0374 

0375 

0376 

R0377 

R0378 

R0379 

RO380 

0381 

0382 

0303 

0384 

0385 

0386 

0387 
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AGC  BLK2  INSTRUCTION  ChECK 


usfeR’S  OWN  page  no. 


C(KEEPl)  ■ 


OKEEPD  a 


DAs  A, 


C(A) 


07 

,2312 

6 4745 

0 

AD 

s-i 

57777 

07 

,2313 

21*035 

1 

DAS 

KEEPI 

) B 4OOOO,  C(KEEP2)  b 
07,2314 

4OOOI 
0 4753 

1 

TC 

-OCHK  -1 

07 

,2315 

56  001 

0 

XcH 

L 

07 

,2316 

0 4753 

1 

TC 

-OCHK  -1 

07 

,2317 

4 1035 

1 

cs 

KEEP2 

O7 

,2320 

6 1034 

1 

AD 

KEEPI 

07 

,2321 

0 4762 

0 

TC 

-ICHK 

iTh  underflow 

07 

,2322 

3 4728 

0 DAS— UV 

CA 

S-MAX 

Of 

,2323 

55*034 

0 

TS 

KEEpl 

40000 

07 

,2324 

55*035 

1 

TS 

KeePZ 

40000 

07 

,2325 

54  001 

1 

TS 

L 

4OOOO 

07 

,2326 

3 4745 

0 

CA 

S.l 

.1 

07 

,2327 

21*035 

1 

das 

KeePI 

) B -I,  C(KEEP2) 
07 

B 40001*  C(A> 
,2330  0 4762 

B -1 

0 

TC 

-ICHK 

07 

,2331 

56  001 

0 

XcH 

L 

07 

,2332 

0 4753 

1 

TC 

-OCHK  -1 

07 

,2333 

3 1034 

1 

CA 

keepi 

O7 

,2334 

0 4762 

0 

TC 

-ICHK 

07 

,2335 

3 4725 

0 

CA 

5*MaX 

07 

,2336 

6 1035 

0 

Ad 

KeePZ 

07 

,2337 

0 47fcl 

0 

TC 

-ICHK  -1 

Doubles  the  contents 

qF  the 

rEGISTEd  AnD  the 

L pEGlSTERt 

07 

,2340 

3 47Z6 

0 

CA 

S-MAX 

07 

*2341 

55*035 

1 

TS 

KEEP2 

4OOOO 

07 

,2342 

54  001 

1 

TS 

L 

4OOOO 

07 

,2343 

4 0000 

0 

cs 

A 

07 

,2344 

55*034 

0 

TS 

KEEPI 

37777 

07 

,2345 

20  001 

1 

DAS 

A 

OV  37775,  C(L)  = 

O7 

40001 

,2346 

55'036 

1 

TS 

KEEPS 

07 

,2347 

0 4770 

0 

TC 

Errors 

07 

,2350 

3 0001 

0 

CA 

L 

O7 

,2351 

6 1036 

0 

AD 

KEEPS 

07 

,2352 

0 4762 

0 

tc 

-ICHK 

normal  USE  OF  iNpEx  WITHOUT  ExTRAcOpE* 

instructions  CHECKED  ylTH  INOEy  UP  TO  FIRST  SPACE  SKIPPED 
ARf  CA,  TS,  XCh*  CCS,  AD,  TC,  TCF,  TS  WITH  OVERFLOW,  AND  MAS« 
FIRST  initialize  ERASABLE  REGISTERS  USED  FOR  INDEX  INSTRUCTION 


07,2353 

3 4711 

1 

CA 

S*ZErO 

07,2354 

55*025 

0 

TS 

NpX+0 

0?,2355 

3 467° 

1 

CA 

ADRSfc 

ADDRESS  OF  S+MAX 

07,2356 

55*026 

0 

TS 

mok*max 

07,2357 

3 4663 

0 

CA 

adpsi 

07,2360 

55*027 

1 

TS 

NDXKEEPl 

07,2361 

3 4664 

1 

CA 

ADRSZ 

8 
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INs  AGC  BLK2  instruction  CHECK 


0388 

07 

2362 

55,030 

1 

TS 

0389 

07 

2363 

3 9665 

0 

CA 

0390 

07 

2369 

55*031 

0 

TS 

0391 

07 

2365 

3 9666 

0 

CA 

0392 

07 

2366 

55*032 

0 

TS 

0393 

07 

2367 

3 9667 

1 

CA 

0399 

07 

2370 

55*033 

1 

TS 

0395 

07 

2371 

51*026 

1 

NDxCHK 

NDx 

0396 

07 

2372 

3 0000 

1 

CA 

0397 

07 

2373 

51*027 

0 

NDX 

0398 

07 

2379 

59  OOO 

0 

TS 

0399 

07 

2375 

51*026 

1 

NDX 

0900 

07 

2376 

9 0000 

0 

cs 

0901 

07 

2377 

51*027 

0 

NDX 

0902 

07 

2900 

56  000 

1 

XCH 

0903 

07 

2901 

51*025 

1 

NDX 

0909 

07 

2902 

10  000 

0 

CCS 

0905 

07 

2903 

0 2907 

0 

TC 

0906 

07 

2909 

0 9770 

0 

TC 

0907 

O7 

2905 

0 977O 

0 

TC 

0408 

07 

2906 

0 9770 

0 

TC 

0909 

07 

2907 

51*027 

0 

NDX 

0910 

07 

2910 

6 0000 

1 

AD 

0911 

07 

2911 

51*032 

1 

SElFI 

NOX 

0912 

O7 

2912 

0 0003 

1 

Tc 

0913 

07 

2913 

0 977O 

0 

TC 

0919 

07 

2919 

51*032 

1 

NDX 

0915 

07 

2915 

0 0006 

1 

Tc 

0916 

07 

2916 

0 2923 

0 

Tc 

0917 

07 

2917 

51*033 

0 

5ELF2 

NDX 

0918 

07 

2920 

1 0003 

0 

TCF 

0919 

07 

2921 

0 9770 

0 

Tc 

0920 

O7 

2922 

0 0002 

0 

TC 

0921 

07 

2923 

0 9762 

0 

CNtINU 

tc 

0922 

O7 

2929 

3 9725 

0 

CA 

0923 

O7 

2925 

6 97I2 

1 

AD 

0929 

07 

2926 

51*027 

0 

NDX 

0925 

07 

2927 

59  000 

0 

TS 

0926 

07 

2930 

0 9770 

0 

TC 

0927 

07 

2931 

6 1039 

1 

AD 

0928 

07 

2932 

51*026 

1 

NDX 

0929 

07 

2933 

7 0000 

0 

MASK 

0930 

07 

2939 

0 9761 

0 

TC 

R0931 

0932 

INDEX  USED  WITH  AOS,  NDX,  AND 
07,2935 

INCR 
3 9723 

0 

CA 

0933 

07 

,2936 

55*039 

0 

TS 

O939 

07 

,2937 

51*025 

1 

NDX 

0935 

07 

,2990 

51*027 

0 

ndx 

0936 

07 

,2991 

26  000 

0 

AdS 

< 
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User’s  own  page  no*  9 


NDXKEEP2 

A0RS3 

NDXKEEP3 

A0RS9 

NDXSEUFl 

ADRS5 

NDXSEtF2 

NDx+MAx 

0000 

NDXKEEPl 

0000 

NDX+0 

0000 

NDXKEEPl 
0000 
NdX*0 
0000 
♦ 9 

errors 

ERRORS 

CA  S+MAx 
A = 37777 
TS  KEEPI 

TS  WITH  NO  OV,  UV 
CS  A 

A ■ 90000 
XCH  KEEPI 

A m 9MAX*  KEEPI  » - MAX 
CCS  A 
A s 37776 

ERRORS 

NDXKEEPl 

0000 

NDXSELFI 

0003 

AD  KEEPI 
A = -1 
TC  *2 

ERRORS 

NDXSEUFl 

0006 

DID  NOT  PERFORM  a TC 
TC  +2 

CNTINU 

NDXSELF2 

003 

check  c<Q> 

TCF  *2 

errors 

a 

-ICHK 

s*max 

S + 1 

SHOULD  GO  TO  SELFI  +2 

NDXKEEPl 

0000 

ERRORS 

TS  KEEPl  WItH  OV 
A B ♦!*  KeePI  e +0 

KEEpl 

NoX*MAX 

0000 

-ICHK  -1 

A s +1 
MASK  S*MAX 
A * ♦! 

Sl^SlTS 

keepi 

NOX+O 

NOXkEErI 

0000 

INDEX  +0 
ADS  KEEpl 

C<A)  aNd  C'KeePH  • 377776 

(MAIN)  PAGE  219 
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INS 

A^c  instruction  cHEcK 

USER*S  OWN 

0937 

07*2992 

51*027 

0 

NDX 

NDXKEEpl 

INCr  KEEpI 

0938 

07,2993 

29  000 

1 

I NCR 

0000 

CIKEEPll  a : 

0^39 

07,2999 

9 0000 

0 

CS 

A 

90001 

0990 

07,2995 

6 1039 

1 

AD 

keepi 

A a ♦! 

0991 

07,2996 

0 9761 

0 

TC 

-ICHK  -1 

R0992 

INDEX  USED  WITH  LXCH,  DAS,  AND  DXCH 

0993 

07,2997 

3 9726 

0 

CA 

S-MAX 

O999 

07,2450 

55*035 

1 

TS 

KEEP2 

KEEP2  HOLDS 

0995 

07,2951 

3 9712 

1 

CA 

5*1 

0996 

07,2952 

55*036 

1 

TS 

KpeP3 

♦ 1 

O997 

07,2953 

5l'03l 

1 

NDX 

NOXKEEP3 

LXCH  KEEP3 

0998 

07,2959 

22  000 

1 

lxch 

0000 

C(l)  = +T 

099g 

07,2955 

3 9799 

1 

CA 

5-2 

09^0 

07,2956 

51*027 

0 

NDX 

NDXKEEPi 

DAS  KEEPl 

0951 

07,2957 

20  001 

1 

DAS 

0000 

R0952 

BpFORp  oAS,  K a 37777  K+1  a 

90000 

R0953 

A a »2  L a 

♦ 1 

R0959 

AFTER  OAS,  ic  a 37775  n + l a 

90001 

R0955 

A a 90  L a 90 

0956 

07,2960 

51*027 

0 

NDX 

NDXKEEPI 

DXCH  KEEPI 

0957 

07,2961 

52  001 

1 

DXCh 

0000 

0958 

07,2962 

6 0001 

0 

AD 

L 

0959 

07,2963 

0 97&2 

0 

TC 

-ICHK 

0960 

07,2969 

9 1039 

0 

CS 

KEEpl 

0961 

07,2965 

0 9759 

0 

Tc 

-OcHK 

0962 

07,2966 

3 1035 

0 

CA 

KEEP2 

0963 

07,2967 

0 9753 

1 

TC 

-OCHk  -1 

R0969 

iNnpX  instruction  UScO  with  OVeRfI-OW 

0965 

07,2970 

3 9671 

0 

CA 

ADRS7 

address  of 

0966 

07,2971 

6 9707 

0 

AD 

SBIT19 

0967 

07,2972 

55*092 

1 

TS 

KeePT 

0960 

07 , 29T3 

5l'092 

0 SELF3 

NDX 

KEEP7 

0969 

07,2979 

2 0003 

0 

2 

0002 

0970 

07,2975 

0 9770 

0 

TC 

ERRORS 

R09701 

CHECK  INDEX  OF  AN  SC  REGISTER 

09702 

07,2976 

3 9663 

0 

CA 

ADRsl 

01371,  ADDR 

09703 

07,2977 

50  000 

1 

NDX 

A 

O97O9 

07,2500 

59  000 

0 

TS 

0000 

PUT  01371  I 

09705 

07,2501 

9 0000 

0 

CS 

A 

09706 

07,2502 

6 1039 

1 

AD 

KEEPI 

09707 

07,2503 

0 9759 

0 

TC 

-OCHK 

10 
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jNS  AGC  BLK2  INSTRUCTION  CHECK  USER'S  OWN  PAGE  NO.  11 

P0A71  start  CHECKING  EXTRACODE  INSTRUCTIONS 
R0A72  normal  use  of  DCA»  DCS,  AND  SU 
OA73  07,2504  0 0006  1 STRTXTRA  EXTEND 

0474  07,2505  3 4673  1 DCA  5BIT1 


R0475 

C(A)  * ♦!»  C(U  » *2 

0476 

07,2506 

55*035 

1 

TS 

KEEP2 

*1 

0477 

07,2507 

56  001 

0 

XCH 

L 

0478 

Of, 2510 

55*034 

0 

TS 

KEEPl 

.2 

0479 

07,Z5il 

0 0006 

1 

EXTEND 

0480 

07,2512 

61*035 

0 

SU 

KEEP2 

C(KEEP2)  = *1 

0481 

07,25i3 

0 4761 

0 

TC 

-ICHK  -1 

0482 

07,2514 

0 0006 

1 

EXTEND 

0483 

07,2515 

4 1035 

1 

DCS 

XEEPl 

R0484 

C(A)  1 -2,  C(L)  3 -1 

0485 

07,2516 

0 0006 

1 

extend 

0486 

07,2517 

60  001 

0 

SU 

L 

0487 

07,2520 

0 476Z 

0 

TC 

-ICHK 

p0488 

COMPLEMENTING  oF  ThE 

DOUBLE  precision  ACCUMULATOR 

0489 

07,2521 

3 4725 

0 

CA 

S.MAX 

0490 

07,2522 

54  001 

1 

TS 

L 

37777 

0491 

07,2523 

6 0000 

1 

AD 

A 

0V37776 

0492 

07,2524 

0 0006 

1 

EXTeNd 

04q3 

07,2525 

4 0001 

1 

DCS 

A 

0494 

07,2526 

55*034 

0 

TS 

KEEPl 

0495 

07,2527 

0 4770 

0 

TC 

errors 

0496 

07,2530 

3 1034 

1 

CA 

KEEPl 

0497 

07,2531 

0 0006 

1 

EXTEND 

0498 

07,2532 

60  001 

0 

SU 

L 

0499 

07,2533 

0 476I 

0 

TC 

1 

I 

u 

1 

R04991 

CHECKS  OCA  OF  AN  SC 

register 

04992 

07,2534 

3 4744 

1 

CA 

S-2 

O9993 

07,2535 

54  002 

1 

TS 

0 

-2 

04994 

07,2536 

3 4712 

1 

CA 

S + 1 

04995 

07,2537 

54  001 

1 

TS 

L 

.1 

04996 

07,2540 

3 4701 

0 

CA 

SBIT8 

04997 

07,2591 

0 0006 

1 

EXTEND 

04998 

07,2542 

3 0002 

0 

DCA 

L 

049981 

07,2543 

6 0001 

0 

AD 

L 

-1 

04999 

07,2544 

0 4762 

0 

TC 

-ICHK 

R0500 

NORMAL  USE  OF  QXCH 

0501 

07,2595 

3 2555 

0 

CA 

OXCHCONl 

0502 

07,2596 

55*034 

0 

TS 

KEEPl 

STORE  address  OF  AUGCHK  IN  KEEPl 

O5O3 

07,2597 

0 255I 

1 

TC 

+2 

Q NOW  HOLDS  ADDRESS  OF  (JNMBR 

0504 

07,2550 

0 4770 

0 

QNMBr  TC 

frrors 

0505 

07,2551 

0 0006 

1 

extend 

050* 

07,2552 

23*034 

1 

QXCH 

KEEPl 

Q NOW  HOLDS  ADDRESS  OF  AUGCHK 

0507 

07,2553 

0 0002 

0 

TC 

0 

SHOULD  GO  TO  QXCHC0N2  *1,  NOT  QNMBr 

0508 

07,2554 

0 4770 

0 

TC 

errors 

0509 

07,2555 

02557 

1 

OXCHCQNl  ADRES 

OXCHC0N2  ♦! 
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INS 

AGC  BLK2  INSTRUCTION 

CHECK 

USER'S  OWN 

Page  no.  12 

0510 

07i2556 

02550 

0 

0XCHC0N2 

ADRES 

QNMBR 

0511 

07i2557 

4 1034 

0 

CS 

KEEPl 

CHECK  that 

KEEPl  holds  B(q) 

0512 

07,2560 

6 2556 

0 

AD 

(3XCHCON2 

0513 

07,2561 

0 4754 

0 

TC 

-OCHK 

R05131 

CHECKS  QXCH  of  AN  SC 

register 

05132 

07,2562 

3 4711 

1 

CA 

5*ZER0 

05133 

07,2563 

0 2565 

0 

TC 

*2 

05134 

07,2564 

1 257I 

1 

TCF 

*5 

05135 

07,2565 

0 0006 

1 

EXTEND 

05136 

07,2566 

22  000 

1 

QXCH 

A 

051361 

07,2567 

22  002 

0 

LXCH 

Q 

05137 

or, 2570 

0 0000 

1 

TC 

A 

05138 

07,2571 

3 0001 

0 

CA 

L 

05139 

07*2572 

0 4753 

1 

TC 

-OCHK  -1 

R0514 

normal  use  of  AUG 

0515 

O7.2573 

3 47II 

1 

AUGCHK 

CA 

S+ZERO 

0516 

07,2574 

55*034 

0 

TS 

KEEPl 

«0 

0517 

07,2575 

4 0000 

0 

CS 

A 

0518 

07,2576 

55*035 

1 

TS 

K£EP2 

-0 

0519 

07,2577 

0 0006 

1 

EXTEND 

0520 

07,2600 

25*034 

1 

AUG 

KEEPl 

0521 

07,2601 

0 0006 

1 

extend 

0522 

07.2602 

25*034 

1 

AUG 

KEEPl 

*2 

0523 

07,2603 

0 4754 

0 

TC 

-OCHK 

CHECK  C(A) 

HAS  not  changed 

0524 

07,2604 

0 0006 

1 

EXTeNd 

0525 

07,2605 

25*035 

0 

AUG 

KEEP2 

-1 

0526 

07,2606 

0 0006 

1 

EXTEND 

0527 

07,2607 

25*035 

0 

AUG 

KEEP2 

-2 

0528 

07,2610 

0 0006 

1 

extend 

0529 

07,2611 

25*035 

0 

AUG 

keepz 

-3 

0530 

07,2612 

0 4753 

1 

TC 

-OCHK  -1 

0531 

07,2613 

3 1035 

0 

CA 

KEEp2 

0532 

07,2614 

6 1034 

1 

AD 

KEEPl 

O533 

07,26l5 

0 4762 

0 

TC 

-ICHK 

r05331 

CHECKS  AUG  qF  An  SC 

rEGISTEr 

05332 

07,2616 

3 4746 

0 

CA 

S-ZeRO 

05333 

07,2617 

0 0006 

1 

EXTEND 

05334 

07,2620 

24  000 

1 

AUG 

A 

.05335 

07,2621 

0 4762 

0 

TC 

-ICHK 

r0534 

normal  use  of  dim 

0535 

07,2622 

3 4711 

1 

dIMcHK 

CA 

S+ZE.RO 

0536 

07,2623 

55*034 

0 

TS 

KEEPl 

♦ 0 

0537 

07,2624 

0 0006 

1 

extend 

0538 

07*2625 

27*034 

0 

DIM 

KEEPl 

0539 

07,2626 

3 1034 

1 

CA 

KEEpl 

0540 

07,2627 

0 4753 

1 

TC 

-ochk  -1 

0541 

07,2630 

4 0000 

0 

CS 

A 

0542 

07,2631 

55*034 

0 

TS 

KEEpl 

.0 
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inS  agc  BtK2  Instruction  check  user's  oWn^ase  ^o*  is  4 


1 - 1 I 


, UM  !•»“ 
>Mf  <S«NAJI 


P * ta  V f, 

■•  ,2  »0 


‘4  " •Tf. 


i 


I 


05A3 

07,2632 

0 0006 

1 

OSAA 

07,2633 

27'034 

0 

0545 

07,2634 

3 1034 

1 

0546 

07,2635 

0 4754 

0 

0547 

07,2636 

3 4713 

0 

0546 

07,2637 

55*034 

0 

0549 

07,2640 

0 0006 

1 

0550 

07,2691 

27*034 

0 

0551 

07,2692 

6 4745 

0 

0552 

07,2643 

0 4761 

0 

0553 

07,2694 

3 1034 

1 

0554 

07,2645 

0 4761 

0 

0555 

07,2646 

0 0006 

1 

0556 

07,2697 

27*034 

0 

0557 

07,2650 

0 4753 

1 

0558 

07,2651 

3 1034 

1 

0559 

07,2652 

0 4754 

0 

0560 

07,2653 

4 4713 

1 

0561 

07,2654 

55*035 

1 

0562 

07,2695 

0 0006 

1 

0563 

07,2696 

27*035 

1 

0564 

07,2657 

3 1035 

0 

0565 

07,2650 

0 4762 

0 

0566 

07,2661 

0 0006 

1 

0567 

07,2662 

27*035 

1 

0568 

07,2663 

0 4753 

1 

0569 

07,2664 

3 1035 

0 

0570 

07 ,2^65 

0 4759 

0 

R05701 

05702 

CHECKS  DIM  OF  AN  SC  REGISTER 
07,2666 

3 9799 

1 

05703 

07,2667 

0 0006 

1 

05704 

07,2670 

26  000 

0 

05705 

07,2671 

0 4762 

0 

R0571 

normal  use  of  msu 

R0572 

MSU 

SAME 

(5+MAX  AND 

5*MAX) t RESULT  +0 

0573 

Or, 2672 

3 4725 

0 

0574 

07,2673 

55*034 

0 

0575 

07,2674 

0 0006 

1 

0576 

07,2675 

21*034 

0 

0577 

07,2676 

0 4753 

1 

R0578 

MSu 

SAMp 

(tO  AND  ^0) 

» Result 

*0 

o579 

07,2677 

55*o35 

1 

0580 

or,  2700 

0 0006 

1 

0501 

Or, 2701 

21*035 

1 

0502 

07,2702 

0 4753 

1 

R05B3 

MSU 

SAMp 

(-0  AND  -0) 

t Result 

+ 0 

0584 

07,27o3 

3 4746 

0 

0585 

07,2704 

55*036 

1 

0586 

07,2705 

0 0006 

1 

EXTEND 

DIM 

KEEPl 

CA 

KEEPl 

TC 

-OCHK 

CA 

5+2 

TS 

KEEPl 

+ 2 

EXTEND 

DIM 

KEEPl 

+ 1 

AD 

S-l 

TC 

-ICHK 

-1 

CHE 

CA 

KEEpl 

TC 

-ICHK 

-1 

EXTEND 

DIM 

KEEpl 

TC 

-OCHK 

-1 

CA 

KEEPl 

TC 

-OCHK 

CS 

S + Z 

TS 

KEEP2 

-2 

EXTEND 

DIM 

KEEP2 

-1 

CA 

KEEP2 

TC 

-ICHK 

extend 

DIM 

KEEP2 

-0 

TC 

-OCHK 

-1 

CA 

keepz 

TC 

-OCHK 

CA 

S-2 

EXTEND 

DIM 

A 

TC 

-ICHK 

CA 

S+MAX 

TS 

KEEPl 

EXTEND 

MSU 

KEEPl 

TC 

-OCHK 

-1 

TS 

KEEPZ 

EXTEND 

MSU 

KEEPZ 

TC 

-OCHK 

-1 

CHECK  C(A)  HAS  NOT  CHANGED 


CA  S-ZERO 

TS  keeps 

EXTEND 
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INS 

aQc  bLK2  instruction  cHEcK 

0587 

07,2706 

21*036 

1 

MSU 

KEEP3 

0588 

07,2707 

0 9753 

1 

TC 

-OCHK 

R0589 

MSu  +0  AND 

77777,  RESULT  » ♦! 

0590 

07,2710 

0 0006 

1 

EXTEND 

0591 

07,2711 

21*036 

1 

MSU 

KEEP3 

0592 

07,2712 

0 9761 

0 

TC 

-ICHK 

R0593 

MSU  77777 

AND  *0,  RESULT  s -1 

059a 

07,2713 

9 0000 

0 

cs 

A 

0595 

07,271A 

0 0006 

1 

extend 

0596 

07,2715 

21*035 

1 

MSU 

KEEP2 

0597 

07,2716 

0 9762 

0 

TC 

-ICHK 

R0598 

MSu  +6  AND 

t7,  result  s -1 

0599 

07,2717 

3 9720 

0 

CA 

S + 7 

0600 

07,2720 

55*037 

0 

TS 

KEEP9 

0601 

07,2721 

3 9717 

1 

CA 

5+6 

0602 

07,2722 

55*090 

0 

TS 

KEEPS 

0603 

07,2723 

0 0006 

1 

EXTEND 

060A 

07,272A 

21*037 

0 

MSU 

KEEP9 

0605 

07,2725 

0 9762 

0 

TC 

-ICHK 

R0606 

MSu  *7  AND 

♦6,  RESULT  ■ +1 

0607 

07,2726 

3 9720 

0 

CA 

S + 7 

0608 

07,2727 

0 0006 

1 

EXTeNd 

O6O9 

07,2730 

21*090 

0 

MSU 

KEEPS 

0610 

07,2731 

0 9761 

0 

TC 

-ICHK  - 

R0611 

MSu  77770  , 

and  77771,  Result  e 

-1 

0612 

07,2732 

3 979O 

0 

CA 

S-6 

0613 

07,2733 

55*091 

1 

TS 

KEEp6 

061A 

07,273A 

3 9737 

0 

CA 

5-7 

0615 

07,2735 

55*092 

1 

TS 

KEEP7 

0616 

07,2736 

0 0006 

1 

EXTEND 

0617 

07,2737 

21*091 

1 

MSU 

KeeP6 

0618 

07,27a0 

0 97ft2 

0 

TC 

-ICHK 

d0619 

MSU  77771  , 

and  77770,  RtSULT  » 

+ 1 

0620 

07,2791 

3 9790 

0 

CA 

5-6 

0*21 

07,2742 

0 0006 

1 

EXTEND 

0622 

07,2793 

21*092 

1 

MSU 

KEEp7 

0623 

07,2799 

0 9761 

0 

Tc 

-IcHK  - 

R06231 

CHECKS  MSU 

OF  AN  SC  register 

( -0  AND  -0  s *0) 

06232 

07,2795 

3 9796 

0 

CA 

S.ZERO 

06233 

07,2796 

59  001 

1 

TS 

L 

0623A 

07,2797 

0 0006 

1 

EXTEND 

06235 

07,2750 

20  001 

1 

MSU 

L 

06236 

07,2751 

0 9753 

1 

TC 

-ochk  - 

r062A 

normal  usE 

OF  B2F 

0625 

07,2752 

0 2759 

0 BZfChK 

TC 

♦ 2 

0626 

0T,27j3 

0 2774 

1 

TC 

BZMFCHK 

0627 

07,2759 

3 9716 

0 

CAF 

S + 5 

0628 

07,2755 

0 0006 

1 

eXTeNd 

0629 

07*2756 

1 977O 

1 

BZF 

ERRORS 

USER«S  OWN  PftGE  NO,  lA 


k 


CORRECT  address  IN  Q 


275690  yUL  SYSTEM  FOR  8LK2!  REvIS.ION  0 OF  PROGRAM  REJRED4A  By  NAs*  20211 


INS  AGC  BLK2  INSTRUCTION  CHECK 


0630 

07 

2757 

4 

0000 

0 

C5 

A 

0631 

07 

2760 

0 

0006 

1 

EXTeND 

0632 

07 

2761 

1 

4770 

1 

BZF 

ERRORS 

0633 

07 

2762 

3 

4711 

1 

CAF 

S+ZERO 

0634 

07 

2763 

0 

0006 

1 

EXTEND 

0635 

07 

2764 

1 

Z766 

0 

BZF 

*2 

0636 

07 

2765 

0 

4770 

0 

TC 

ERRORS 

0637 

07 

2766 

4 

0000 

0 

CS 

A 

0638 

07 

2767 

0 

0006 

1 

extend 

0639 

07 

Z77O 

1 

2772 

0 

BZF 

+ 2 

0640 

07 

2771 

0 

4770 

0 

TC 

ERRORS 

0641 

07 

2772 

0 

0002 

0 

TC 

Q 

0642 

07 

2773 

0 

4770 

0 

TC 

ERRORS 

0643 

07 

2774 

0 

2776 

0 BZMFCHK 

TC 

*2 

0644 

07 

2775 

0 

3017 

1 

TC 

MP1  + * 

0645 

07 

2776 

3 

4702 

0 

CAF 

SB  I T9 

0646 

07 

2777 

0 

0006 

1 

extend 

0647 

07 

3000 

6 

477O 

0 

BZMF 

ERRORS 

0648 

07 

3001 

4 

0000 

0 

CS 

A 

0649 

07 

3002 

0 

0006 

1 

EXTEND 

0650 

07 

3003 

6 

3005 

1 

BZMF 

♦ 2 

0651 

07 

3004 

0 

4770 

0 

TC 

ERRORS 

0652 

07 

3005 

3 

4711 

1 

CA 

S.ZERO 

0653 

07 

3006 

0 

0006 

1 

EXTEND 

0654 

07 

3067 

6 

3011 

1 

BZMF 

42 

0655 

07 

3010 

0 

4770 

0 

TC 

ERRORS 

0656 

07 

3011 

4 

0000 

0 

CS 

A 

0657 

07 

3012 

0 

0006 

1 

extend 

0658 

07 

3013 

6 

3015 

0 

BZMf 

42 

0659 

07 

3014 

0 

477O 

0 

TC 

ERRORS 

0660 

07 

3015 

0 

0002 

0 

TC 

0 

0661 

07 

3016 

0 

4770 

0 

Tc 

errors 

Rq662  normal  use  of  MP 
R0663  37777  X 2 


0664 

O7.3OI7 

3 4725 

0 

MP144 

CA 

S4MAX 

0665 

07,3020 

0 0006 

1 

EXjEND 

0666 

07,3021 

7 4713 

1 

MP 

5+2 

0667 

07,3q22 

6 OQOl 

0 

AD 

U 

0668 

07,3023 

55*034 

0 

TS 

KEEPI 

O669 

07,3024 

0 0006 

1 

MPl4- 

EXTEND 

0670 

07,3025 

7 4744 

0 

MP 

s-z 

0671 

07,3026 

6 0001 

0 

AO 

L 

O67Z 

07,3027 

55*035 

1 

TS 

KEEP2 

0673 

07,3030 

0 0006 

1 

Mpl-4 

EXTEND 

0674 

07,3031 

7 4713 

1 

MP 

S42 

0*75 

o7,3o32 

6 0001 

0 

AD 

L 

0676 

07,3033 

55*036 

1 

TS 

KEEP3 

0677 

07,3034 

0 0006 

1 

MPl  — 

EXTEND 

JUL  9»  1965  (MAIN)  VGE  22A 


USER'S  OWN  PAGE  NO.  15 


Should  go  to  bzfchk  +i 
CORRECT  address  IN  Q 


SHOULD  Go  TO  BZMFCHK  +1 


37777 

(■(A)  = +1»  C<L.  = 37776 
37777 

CIA)  a -I*  C(L)  = AOOOl 
40000 

C(A)  a -1*  C<L)  a AOOOl 
40000 


375690 


YUL  System  for  blkzj  revision  o of  program 


INS  AGO  BLKz  INSTRUCTION  CHECK 


0678 

07,3035 

7 

6766 

0 

0679 

07,3036 

6 

0001 

0 

0680 

07,3037 

6 

1036 

0 

0681 

07,3040 

6 

1036 

0 

0682 

07,3041 

6 

1036 

1 

0683 

07,3062 

0 

6754 

0 

r0684 

37777 

X 37777 

0685 

07,3063 

3 

6725 

0 

0686 

07,3066 

0 

0006 

1 

0687 

07,3065 

7 

0000 

0 

0688 

07,3066 

6 

0001 

0 

0689 

07,3067 

55*036 

0 

0690 

07,3050 

0 

0006 

1 

0691 

07,3051 

7 

6726 

1 

0692 

07,3052 

6 

0001 

0 

0693 

07,3053 

55*036 

1 

0694 

07,3056 

0 

0006 

1 

0695 

07,3055 

7 

6725 

1 

0696 

07,3056 

6 

0001 

0 

0697 

O7 , 3057 

55*036 

1 

0698 

07,3060 

0 

0006 

1 

0699 

07,3061 

7 

6726 

1 

0700 

07,30*2 

6 

0001 

0 

0701 

07,3063 

6 

1036 

0 

0702 

07,3066 

6 

1035 

0 

0703 

07,3065 

6 

1036 

1 

0704 

07,3066 

0 

6754 

0 

R0705 

C(A)  a 

NON-ZERO,  C(K)  a ZERO 

R0706 

result 

IS  ALWAYS  POSITIVE  ZERq 

0707 

07,3067 

3 

4725 

0 

0708 

07,3070 

0 

0006 

1 

0709 

07,3071 

7 

4711 

0 

O7IO 

07*30t2 

6 

0001 

0 

0711 

07,3073 

0 

4753 

1 

0712 

07,3076 

3 

4712 

1 

07u 

07,3075 

0 

0006 

1 

0714 

07,3076 

7 

4766 

1 

O7I5 

07*3077 

6 

0001 

0 

0716 

07,3100 

0 

6753 

1 

0717 

07,3101 

3 

6766 

0 

0718 

07,3102 

0 

0006 

1 

0719 

07,3103 

7 

6711 

0 

0720 

07,3106 

6 

0001 

0 

0721 

07,3105 

0 

6753 

1 

0722 

07,3106 

3 

6766 

0 

0723 

07,3107 

0 

0006 

1 

0726 

07,3li0 

7 

6766 

1 

0725 

07,3111 

6 

0001 

0 

0726 

07,3112 

0 

6753 

1 

R0727 

C(A)  a 

Zero,  c(K)  a non-zero. 

MP2  + + 

MPZ  + - 
MPZ-  + 
MPZ  — 

MP3  + + 
MP3+- 
MP3-  + 
MP3— 


By  nAsa  zoziioo 


USER* 


MP 

S.2 

CIA)  a 

Ad 

L 

37777 

AD 

KEEP3 

77777 

AD 

KEEP2 

60000 

AD 

KEEPl 

77777 

TC 

-OCHK 

CA 

S + MAX 

37777 

EXTEND 

CHECKS 

MP 

A 

ClA)  a 

AD 

L 

T5 

extend 

KEEPl 

37777 

MP 

S-MAX 

ClA)  a 

AD 

L 

TS 

EXTEND 

KEEPZ 

60000 

MP 

S+MAX 

CIA)  a 

AD 

L 

TS 

EXTEND 

KEEP3 

60000 

MP 

S-MAX 

ClA)  a 

AD 

L 

37777 

AD 

KEEP3 

77777 

AD 

KEEP2 

60000 

AD 

KEEPl 

77777 

TC 

-OCHK 

CA 

extend 

S+MAX 

37777 

MP 

5*ZeR0 

AD 

L 

tc 

-OCHK  -1 

CA 

EXTEND 

S*1 

MP 

5-ZERo 

AD 

L 

tc 

-OCHK  -1 

CA 

EXTEND 

S-1 

Mp 

S^ZERO 

AD 

L 

tc 

-OCHK  -1 

CA 

EXTEND 

5-ZeRO 

MP 

5-ZERo 

AD 

L 

TC 

-OCHK  -1 

JUL  <5,  1965  (MAIN)  page  ZZ5 

I OWN  PAGE  NO,  16 
♦1»  C(l)  » 37776 

R5C  PULSE 
37776,  C(l.)  * +1 

60001,  c(L)  = -1 

40001,  CIL)  a -1 

37776,  c(U  a *1 
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jNS 

AGC  BLK2  INSTRUCTION  CHECK 

USER'S  OWN  Page  no.  it 

R0728 

result  is  + zero  for  a positive  sign 

ANC 

1 negative 

R0V29 

ZERO  FOR  Z negative  SIGN 

0730 

07,3113 

3 4711 

1 

MP4  + * 

CA 

S^ZERO 

0731 

07,3114 

0 0006 

1 

EXTEND 

0732 

07,3115 

7 4725 

1 

MP 

5+MAX 

0733 

07,3116 

6 OOOl 

0 

AD 

L 

0734 

07,3117 

0 4753 

1 

TC 

-OCHK  -1 

0735 

07,3120 

0 0006 

1 

MP4+- 

EXTEND 

0736 

07,3121 

7 4745 

1 

Mp 

5-1 

0737 

07,3122 

6 000 1 

0 

Ad 

L 

0738 

07,3123 

0 4754 

0 

TC 

-OCHK 

0739 

07,3124 

4 0000 

0 

MP4-* 

cs 

A 

0740 

07,3125 

0 0006 

1 

EXTeNd 

0741 

07,3126 

7 A7I6 

1 

MP 

S + 5 

0742 

07,3127 

6 0001 

0 

AD 

L 

0743 

07,3130 

0 4754 

0 

TC 

-OCHK 

0744 

07,3131 

4 0000 

0 

MP4— 

CS 

A 

0745 

07,3132 

0 0006 

1 

EXTEND 

0746 

07,3133 

7 4746 

1 

MP 

s-zero 

0747 

07,3134 

6 0001 

0 

AD 

L 

0748 

07,3135 

0 4753 

1 

TC 

-OCHK  -1 

R0749 

multiply  ZeKO  X ZERO 

R0750 

RESULT  IS  ALWAYS  PLUS  ZERO 

0751 

07,3136 

3 4711 

1 

MP5  + + 

CA 

5+ZERO 

0752 

07.3137 

55*034 

0 

TS 

KEEPl 

0753 

07,3140 

0 0006 

1 

EXTEND 

0754 

07,3141 

7 1034 

0 

MP 

KEEPl 

0755 

07,3142 

6 OOOl 

0 

AD 

L 

0756 

07,3143 

0 4753 

1 

TC 

-OCHK  -1 

0757 

07,3144 

0 0006 

1 

MP5*- 

EXTeNd 

0758 

07,3145 

7 4746 

1 

MP 

5-ZERO 

0759 

07,3146 

6 OOOl 

0 

AO 

L 

0760 

07,3147 

0 4753 

1 

TC 

-OCHK  -1 

0761 

07,3150 

3 4746 

0 

MP5-  + 

CA 

5-ZERO 

0762 

07,3151 

0 0006 

1 

extend 

0763 

07,3152 

7 4711 

0 

MP 

5*ZeR0 

0764 

07,3153 

6 OOOl 

0 

AD 

L 

0765 

07,3154 

0 4753 

1 

tc 

-OCHK  -1 

0766 

07,3155 

3 4746 

0 

MP5— 

CA 

S-ZeRO 

0767 

07,3156 

0 0006 

1 

EXTEND 

0768 

07,3157 

7 4746 

1 

Mp 

S-ZERo 

0769 

07,3160 

0 4753 

1 

TC 

-OCHK  -1 

07691 

07,3161 

3 3163 

0 

CA 

ConTIND 

07692 

07,3162 

0 4105 

1 

Tc 

BANKJUMP 

07693 

07,3l§3 

20000 

0 

CONTINU 

CADR 

DVl**  -1 

CONTINUE  WITH  INSTRUCTION  CHECK 

07694 

10,2000 

SeTLOC 

30000 

07695 

10,2000 

0 4224 

1 

TC 

checknj 

CHECK  FOR  NEw  JOB 

iNs 

R0770 

R0771 

R077Z 

RO773 

077<* 

0775 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

O783 

0784 

0785 

0786 

0787 

0788 

0789 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

R080S 

R0806 

0807 

0808 

0809 

0810 

Osll 

0812 

0813 

08U 

0815 

0816 

08i7 

0818 
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AGC  BLK2  instruction  CHECK 

normal  use  Op  DV  •••  REMAINDER  hAS  SIqN  OF  DIVIDEND 
1/4  DIVIDED  By  3/8 

C(A)  a 25252  WITH  A ♦ QUOTIENT  AND  52525  WITH  A . QUOTIENT. 
C(L)  a REMAINDER  = /lOOOOO/  WITH  SIGN  OF  DIVIDEND, 


USER‘5  O^N  PAGE  NO.  18 


1/2  TO  15TH  divided 
C(A)  SHOULD  BE  1/2 


10,20(31 

3 4747 

1 

DV1*  + 

CA 

DVlCON 

14000 

10,2002 

55'042 

1 

TS 

KEEP7 

14000, 

10,2063 

54  002 

1 

TS 

Q 

10,2064 

4 0000 

0 

CS 

A 

10,2065 

55*041 

1 

TS 

KEEP6 

63000, 

10,2006 

3 4711 

1 

CA 

S+ZERO 

10,2007 

54  001 

1 

TS 

L 

10,20iC 

3 4706 

1 

CA 

SBIT13 

10000 

10,2011 

0 0006 

1 

EXTEND 

10,2012 

10  002 

1 

DV 

0 

checks 

10,2013 

55'034 

0 

TS 

KEEPl 

25252 

10,2014 

3 4711 

1 

CA 

s+zero 

10,2015 

22  000 

1 

DV1+- 

LXCH 

A 

10,2016 

0 0006 

1 

EXTEND 

10,2017 

11*041 

1 

DV 

KEEP6 

10,2020 

6 1034 

1 

AD 

KEEPl 

10,2021 

0 4754 

0 

TC 

-OCHK 

10,2022 

3 47A6 

0 

CA 

5-ZERO 

10,2023 

22  000 

1 

LXCH 

A 

10,2024 

4 0000 

0 

DV1-+ 

CS 

A 

10,2025 

0 0006 

1 

extend 

10,2026 

11*042 

1 

DV 

KEEP7 

10,2027 

55*034 

0 

TS 

KEEPl 

52525 

10,2030 

3 4746 

0 

CA 

S-ZeRO 

10,2031 

22  000 

1 

DVl  — 

LXCH 

A 

10,2032 

0 0006 

1 

EXTEND 

10,2033 

11*041 

1 

DV 

Keep* 

iy,2034 

6 1034 

1 

AO 

KEEPl 

10,2035 

0 4754 

0 

TC 

-OCHK 

10,2036 

3 0001 

0 

CA 

L 

10,2037 

6 47O6 

1 

AD 

5BIT13 

10,2040 

0 4754 

0 

TC 

-OCHK 

BY  1/2  TO 

14TH 

AND  contents  OF  L 

SHOULD  BE 

ZERO 

10,2041 

3 4712 

1 

DV2  + * 

CA 

S+1 

10,2042 

55*042 

1 

TS 

KeeP7 

00001, 

10,2043 

4 0000 

0 

CS 

A 

10,2044 

55*041 

1 

TS 

kEEP6 

77776, 

10,2045 

3 4711 

1 

CA 

5+ZERO 

10,2046 

3 4707 

0 

CA 

SBItIA 

20000 

10,2047 

54  001 

1 

TS 

L 

10,2050 

3 47II 

1 

CA 

S+ZERO 

10,2051 

0 0006 

1 

extend 

10,2052 

11*042 

1 

dv 

KeeP7 

C (A)  a 

10,Z0»3 

55*q34 

0 

TS 

KEEPi 

10,205A 

22  000 

1 

DV2*- 

lxch 

A 

275690 

INS 

O8I9 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

R0841 

R0842 

R0843 

0844 

0845 

0846 

08<,7 

0848 

0849 

O85O 

0851 

0852 

0853 

. 0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0862 

0863 

0864 

0865 

0866 

0867 

0868 


1 
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AQC  BLK2  INSTRUCTION  CHECK  USER'S  OWN  PAGE  NO.  19 


10,2055 

0 0006 

1 

EXTEND 

10,2056 

ll'04l 

1 

DV 

KEEP6 

10,2057 

55*035 

1 

T5 

KEEP2 

-1/2 

10,2060 

6 1034 

1 

AD 

KEEPl 

10,2061 

0 4754 

0 

TC 

-OCHK 

10,2062 

3 1035 

0 

CA 

KeeP2 

10,2063 

22  000 

1 

LXCH 

A 

10,2064 

4 0000 

0 

DV2-* 

C5 

A 

10,2065 

0 0006 

1 

EXTeND 

10,2066 

11'042 

1 

DV 

KEEP? 

10,2067 

55*035 

1 

T5 

KEEP2 

10,2070 

22  000 

1 

DV2— 

LXCH 

A 

10,2071 

0 0006 

1 

EXTEND 

IV, 2072 

11*041 

1 

DV 

KEEP6 

10,2073 

55*034 

0 

T5 

KEEPl 

10,2074 

6 1035 

0 

AD 

KEEP2 

10,2075 

0 4754 

0 

TC 

-OCHK 

10,2076 

4 1034 

0 

C5 

KEEPl 

MAKE  SURE  QUOTIENT  IS  1/2 

10,2077 

6 4707 

0 

AD 

SBITIA 

10,2100 

0 4754 

0 

TC 

-OCHK 

10,2101 

3 OOol 

0 

CA 

L 

10,2102 

0 4754 

0 

TC 

-OCHK 

same  as  previous  division  except  a and  l will  have  opposite  signs 

BEFORE  DIVISION,  SINCE  A WILL  ALWAYS  BE  ZERO,  THE  SIGN  OF  THE  QUOTIENT 


will  depend  on  the  Sign  of  l 

AND  THE 

SIGN  OF  THE 

DIVISOR. 

10,2103 

3 47O7 

0 

DV3  + + 

CA 

SBIT14 

20000 

10,2104 

54  001 

1 

TS 

L 

10,2105 

3 4796 

0 

CA 

5-ZeRO 

10,2106 

0 0006 

1 

EXTEND 

10,2107 

11*042 

1 

DV 

KEEP? 

10,2110 

55*034 

0 

TS 

KEEPl 

20000 

10,2lil 

22  000 

1 

DV3  + - 

LXCH 

A 

10,2112 

4 0000 

0 

CS 

A 

A a -1 

10,2113 

0 0006 

1 

EXTeNd 

10,2114 

11*041 

1 

DV 

KEEP6 

10,2115 

6 1034 

1 

AD 

KEEPl 

10,2116 

0 4759 

0 

TC 

-OCHK 

10,2117 

4 a707 

1 

CS 

SBITlA 

-1X2 

10,2120 

22  000 

1 

DV3-4 

LXCH 

A 

10,2121 

0 0006 

1 

extend 

1V.2122 

11*042 

1 

DV 

KEEP7 

10,2123 

55*039 

0 

TS 

KEEPl 

10,2124 

22  000 

1 

dV3— 

LXCH 

A 

10,2125 

9 0000 

0 

CS 

A 

A a ♦! 

10,2126 

0 0006 

1 

EXTEND 

10,2127 

11*091 

1 

DV 

KEEP6 

10,2130 

6 1034 

1 

AD 

KEEpl 

10,2131 

0 4754 

0 

TC 

-OCHK 

10,2132 

4 0001 

1 

CS 

L 

10,2133 

0 4753 

1 

TC 

-OCHK  -1 

275690 

InS 

Rq869 

R0870 

0871 

0872 

0873 

0876 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

R0907 

R0908 

R09o9 

r0910 

0911 

0912 

0913 

0914 

O9I5 

0916 

0917 

0918 
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agc  BI.K2  Instruction  check 


USER'S  oWn  pAGE  NO*  20 


CIA)  = 17777  and  C(U  s 37777.  THIS  IS  DIVIDED  BY  20000. 
SHOULD  BE  ♦-/37777Z  A|\|D  TH|  REMAINOER  *-/17777/ 


THE  RESULT 


CIA)  = +-/17777/  AND 


A AND 
oF  A, 


THE 


10,2134 

3 4725 

0 

DV4.+ 

CA 

S + MAX 

10,2135 

54  001 

1 

T5 

L 

10,2136 

3 4707 

0 

CA 

SBIT14 

10,2137 

55*042 

1 

T5 

KeePT 

10,2140 

4 0000 

0 

CS 

A 

10,2141 

55*041 

1 

T5 

KEEp6 

10,2142 

3 4723 

0 

CA 

513BITS 

10,2143 

0 0006 

1 

EXTEND 

10,2144 

11*042 

1 

DV 

KEEP7 

10,2145 

55*034 

0 

TS 

KEEPl 

10,2146 

22  000 

1 

DV4+- 

LxCH 

A 

10,2147 

0 0006 

1 

EXTEND 

10,2150 

11*041 

1 

DV 

KEEP6 

10,2151 

55*035 

1 

TS 

KEEP2 

10,2152 

6 1034 

1 

Ad 

KEEPI 

10,2153 

0 4754 

0 

TC 

-OCHK 

10,2154 

3 1035 

0 

CA 

KEEp2 

10,2155 

22  000 

1 

LXCH 

A 

10,2156 

4 0000 

0 

DV4-  + 

CS 

A 

10,2157 

0 0006 

1 

extend 

10,2160 

11*042 

1 

DV 

KeePT 

10,2l6l 

6 1034 

1 

AD 

KEEPl 

10,2162 

0 4754 

0 

TC 

-OCHK 

10,2163 

3 1035 

0 

CA 

keepz 

10,2164 

22  000 

1 

DV4— 

LXCH 

A 

10,2165 

0 0006 

1 

extend 

10,2166 

11*041 

1 

dv 

KeeP6 

10,21&7 

55*036 

1 

TS 

KEEPS 

10,2170 

6 1035 

0 

AD 

KEEp2 

10,2171 

0 4754 

0 

TC 

-OCHK 

10,2172 

4 1036 

1 

CS 

KEEP3 

10,2173 

6 4725 

0 

AD 

5+mAX 

10,2174 

0 4754 

0 

Tc 

-OcHK 

10,2175 

3 0001 

0 

CA 

L 

10,2176 

6 4723 

0 

AD 

S13BITS 

10,2177 

0 4754 

0 

Tc 

-OcHK 

CIL)  » + 

-737777/  WITH  OPPOSITE  SIGN  BEFORE  1 

IE  ♦.737774/  WiTh  the  Sign  depending  on  the 

: devisor 

. THE  C(L) 

a ♦-/!/ 

depending  on  the 

10,2200 

4 4725 

1 

DV5  + + 

CS 

5+MAX 

10,2261 

54  001 

1 

TS 

L 

10,2202 

3 4723 

0 

CA 

S13BITS 

10,2293 

0 0006 

1 

EXTeNd 

10,2204 

11*042 

1 

DV 

KEEP7 

10,2205 

55*034 

0 

TS 

KEEpl 

10,2206 

56  001 

0 

XcH 

L 

10  2207 

0 4761 

0 

TC 

-ICHK  -1 

20000 

57777 

17777 


4OOOO 

17777 


37774 


279690 

INS 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0939 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

09^8 

0949 

0950 

R0991 

R0952 

R0953 

0994 

0955 

0956 

0957 

0958 

O9S9 

0960 

0961 

0962 

0963 

0964 

0969 

0966 

0967 
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AQC  BLK2  INSTRuCtI(3N  CHECK  USER'S  O^N  PAGE  NO,  21 


10,2210 

3 4726 

0 

DV5+- 

CA 

S-MAX 

10,2211 

54  001 

1 

TS 

L 

40000 

10,2212 

3 4723 

0 

CA 

S13BITS 

17777 

10,2213 

0 0006 

1 

EXTEND 

10,2214 

11*041 

1 

DV 

KEEP6 

C(A)  s 

-37774,  C(L)  s +1 

10,2219 

6 1034 

1 

AD 

KEEPl 

10,2216 

0 4794 

0 

TC 

-OCHK 

IV, 2217 

56  001 

0 

XCH 

L 

10,2220 

0 4761 

0 

TC 

-ICHK  -1 

10,2221 

3 4725 

0 

0V5-  + 

CA 

S+MAX 

10,2222 

54  001 

1 

TS 

L 

37777 

10,2223 

4 4723 

1 

CS 

S13B1T5 

60000 

10,2224 

0 0006 

1 

extend 

10,2225 

11*042 

1 

DV 

KEEP7 

C(A)  8 

-37774,  C(L)  » -1 

10,2226 

55*035 

1 

TS 

KEEP2 

10,2227 

6 1034 

1 

Ad 

KEEPl 

10,2230 

0 4754 

0 

TC 

-OCHK 

10,2231 

56  001 

0 

XCH 

L 

10,2232 

0 4762 

0 

TC 

-IChK 

10,2233 

3 4725 

0 

DV5— 

CA 

S+MAX 

10,2234 

54  001 

1 

TS 

L 

37777 

10,2235 

4 4723 

1 

CS 

S13BITS 

60000 

10,2236 

0 0006 

1 

EXTEND 

10,2237 

11*041 

1 

DV 

KEEP6 

C(A)  8 

37774,  C(U  8 »1 

10,2240 

6 1035 

0 

AD 

KEEP2 

10,2241 

0 4794 

0 

TC 

-OCHK 

10,2292 

56  001 

0 

XCH 

L 

10,2243 

0 4762 

0 

TC 

-ICHK 

10,2244 

3 1035 

0 

CA 

KEEP2 

-37774 

10,2245 

6 4744 

1 

AD 

5-2 

-37776 

10,2246 

6 4725 

0 

AD 

S + MAX 

+ 1 

10,2247 

0 4761 

0 

TC 

-IChK  -1 

Check 

that  quotient  iS  4-/37774/ 

DlylDE  SAME  (37776),  THE  RESuLT  SHOULD  BE  MAvIMuM  AND  jHE  REMAINDER 

Should  be  the  same  value  as  the  divisor  with  the  same  sign  as  the 

DIVIDEND 


10,2290 

3 4711 

1 

DV6  + + 

CA 

S*2E);0 

1. 

10,2291 

54  001 

1 

TS 

10,2292 

4 475O 

0 

CS 

DV2C0N 

im 

10,2293 

55*041 

1 

TS 

KEEP6 

10,2294 

4 0000 

0 

cs 

A 

10,2295 

55*042 

1 

TS 

KEEP7 

37776 

10,2296 

0 0006 

1 

Extend 

10,2297 

11*042 

1 

DV 

KEEP7 

10,226° 

4 0000 

0 

cs 

A 

10,2261 

6 0001 

0 

AD 

L 

10,2262 

0 4762 

0 

TC 

-ichk 

10,2263 

3 4711 

1 

CA 

5+2ER0 

10,2264 

22  000 

1 

DV6*- 

lxch 

A 

10,2265 

0 0006 

1 

EXTeNo 

275690 

jNS 

0968 

0969 

O97O 

0971 

0972 

0973 

0974 

O975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

098* 

0987 

R0988 

R0989 

R0990 

O99I 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

IOO9 

1010 

1011 

1012 

1013 

lOU 

1015 

1016 

1017 
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AGC  BLK2  INSTRUCTION  CHECK 


USER'S  OWN  page  no,  22 


DIVIDEND. 


10«2266 

ll'04l 

1 

DV 

KEEP6 

10,2267 

6 0001 

0 

AO 

L 

10,2270 

0 4762 

0 

tc 

-ICHK 

10,2271 

3 4746 

0 

CA 

s-zero 

10,2272 

22  000 

1 

DV6-  + 

LXCH 

A 

10,2273 

4 0000 

0 

cs 

A 

10,2274 

0 0006 

1 

extend 

10,2275 

11,042 

1 

DV 

KEEP7 

10,2276 

4 0000 

0 

CS 

A 

10,2277 

6 0001 

0 

AD 

L 

10,2300 

0 4761 

0 

TC 

-ICHK  ' 

10,2301 

3 4746 

0 

CA 

S-ZErO 

10,2302 

22  000 

1 

DV6  — 

LXCH 

A 

10,2303 

0 0006 

1 

EXTEND 

10,2304 

ll'04l 

1 

DV 

KEEP6 

10,2305 

6 0001 

0 

AD 

L 

10,2306 

0 4761 

0 

TC 

-ICHK  ' 

10,2307 

4 0001 

1 

CS 

L 

10,2310 

6 1041 

0 

AD 

KEEP6 

10,2311 

0 4754 

0 

TC 

-OCHK 

:zeRO),  the  result  should 

Be  maximum  and  the  rema 

: same  value  as  the  divisor 

with  the 

SAME  SIGN  As  ' 

10,2312 

4 4711 

0 

DV7+  + 

CS 

S+ZERO 

10,2313 

55,041 

1 

IS 

KEEP6 

10,2314 

4 0000 

0 

CS 

A 

10,2315 

55'042 

1 

T5 

KEEP7 

iy,23l6 

54  001 

1 

ts 

L 

10,2317 

0 0006 

1 

EXTEND 

10,2320 

11'042 

1 

DV 

KeeP7 

10,2321 

6 4726 

0 

AD 

S-MAX 

10,2322 

0 4754 

0 

TC 

-OCHK 

10,2323 

22  000 

1 

dV7+- 

LXCH 

A 

10,2324 

0 0006 

1 

EXTEND 

10,2325 

11,041 

1 

DV 

keeps 

10,2326 

6 4725 

0 

AO 

S+MAX 

10,2327 

0 4754 

0 

TC 

-OCHK 

10,2330 

4 0000 

0 

CS 

A 

10,2331 

22  000 

1 

0 

< 

1 

LXcH 

A 

10,2332 

4 0000 

0 

CS 

A 

10,2333 

0 0006 

1 

EXTEND 

10,2334 

11*042 

1 

DV 

KEEP7 

10,2335 

6 4726 

0 

AD 

S+MAX 

10,2336 

0 4754 

0 

Tc 

-OcHK 

10,2337 

4 0000 

0 

CS 

A 

10;2340 

22  000 

1 

DV7_. 

LXCH 

A 

10,2341 

0 0006 

1 

EXTEND 

10,2342 

11*041 

1 

Dv 

KEEP6 

10,2343 

6 4726 

0 

AD 

S-MAX 

10,2344 

0 4754 

0 

TC 

-OCHK 

.0 

+ 0 


f<A>  - C'L)  = *0 


CtA)  = C(L!  * -0 


CtA)  = C<L)  = _0 


275690 
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INS  AGC  BUK2  INSTRUCTION  CHECK  USER'S  OwN  PAGE  NO.  23 

1018  10,2395  9 0001  I CS  L 

1019  10,2396  0 9753  1 TC  -OCHK  -1 

R1020  DEVICE  SAME  (ZERO),  THE  CONTENTS  OF  THE  A REGISTER  AND  L REGISTER  WILL 
R1021  HAyt  OPPOSITE  SIGNS  BEFORE  DEylSION.  THE  SIGN  OF  THE  QUOTIENT  WILL 

R1022  DEpEnD  on  tHE  SIGN  OF  THE  L REGISTER  BEFORE  DEVISION  AND  tHE  SIGN  OF 


R1023 

The 

devisor. 

ThE  sign  of  The 

remainder 

IS  The 

SAME  sign 

AS  ThE 

siqN  of 

R1029 

the 

1 REGISTER  BEFORE  DEVISION,  C(L) 

remains 

SAME 

1025 

10,2397 

3 9711 

1- 

DV8*  + 

CA 

S+ZERO 

1026 

10,2350 

55*092 

1 

T5 

KEEP7 

.0 

1027 

10,2351 

59  001 

1 

T5 

L 

1028 

10,2352 

9 0000 

0 

CS 

A 

1029 

10,2353 

55*091 

1 

TS 

KeeP6 

-0 

IO3O 

10,2354 

0 0006 

1 

EXTEND 

A s -0*  L e 

40 

1031 

10,2395 

11'092 

1 

DV 

KEEpT 

A s L = 90 

1032 

10,2356 

55*039 

0 

TS 

KEEPl 

1033 

10,2397 

3 0001 

0 

CA 

1. 

C(A)  a C(L) 

a +0 

1039 

10,2360 

0 9753 

1 

TC 

-OCHK 

-1 

1035 

10,2361 

9 0000 

0 

DV8+- 

CS 

A 

1036 

10,2362 

0 0006 

1 

EXTEND 

A a -0*  L a 

♦ 0 

1037 

10,2363 

11*091 

1 

DV 

KEEp6 

A a -0*  L a 

.0 

1038 

10,2369 

6 1039 

1 

AD 

keepi 

1039 

10,2365 

0 9759 

0 

TC 

-OCHK 

1090 

10,2366 

9 0000 

0 

CS 

A 

1091 

10,2367 

56  001 

0 

XCH 

L 

PUT  -0  IN  L 

1092 

10  2370 

0 9753 

1 

TC 

-OCHK 

-1 

CHECK  C(L) 

1093 

10,2371 

0 0006 

1 

DV8.* 

EXTEND 

A a .0.  L a 

.0 

IO99 

10,2372 

11*092 

1 

DV 

KEEP7 

0 

1 

II 

_l 

u 

< 

1095 

10,2373 

55*035 

1 

TS 

KEEP2 

1096 

10,2379 

6 1039 

1 

AD 

keepi 

1047 

10,2375 

0 4754 

0 

TC 

-OCHK 

1098 

10,2376 

9 OOOO 

0 

CS 

A 

1099 

10,2377 

56  001 

0 

XcH 

L 

PUT  -0  IN  1 

1050 

10  2900 

0 9759 

0 

TC 

-OCHK 

CHECK  C(L> 

1061 

10,2901 

0 0006 

1 

DV8_. 

EXTEND 

A a .0*  L a 

.0 

IO52 

10,2902 

11*091 

1 

DV 

KEEP6 

A a 40*  L a 

-0 

1053 

10,2903 

6 1035 

0 

AD 

KEEPZ 

1059 

10,2909 

0 9759 

0 

TC 

-OCHK 

1055 

10,2905 

3 9725 

0 

CA 

S4MAX 

CHECK  QUOTIENT  IS  CORRECT 

1056 

10,2906 

6 1035 

0 

AD 

KEEpZ 

1057 

10,2907 

0 9759 

0 

TC 

-OCHK 

1058 

10,2910 

56  001 

0 

XCH 

L 

1059 

10,2911 

0 9759 

0 

TC 

-OCHK 

CHECK  C(L) 

R1060 

input-output 

INSTRUCTIONS 

R1061 

normal  use  of 

READ  AND  write 

1062 

10,2912 

3 9795 

0 

IN.OUTl  CA 

S_1 

1063 

10,2413 

0 0006 

1 

EXTEND 

1069 

10,2919 

01  001 

1 

WRITE 

L 

77776 

1065 

10,2415 

9 0000 

0 

CS 

A 

OOOOl 

275690 

INS 

1066 

1067 

1068 

1069 

1070 

is;s 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

R1081 

1082 

1083 

1084 

1085 

108ft 

1087 

1088 

1°89 

1090 

1091 

1092 

1093 

1094 

1095 

109ft 

1097 

1098 

IO99 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

IIO7 

1108 

1109 

1110 

1111 

R1112 

1113 
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ACC  BLK2  Instruction  check 


U5ER*S  oWn  pAGE  No*  2^ 


10.2416 

0 0006 

1 

EXTEND 

10,2417 

00  001 

0 

READ 

L 

77776 

10,2420 

0 4762 

0 

TC 

-ICHK 

10,2421 

3 4726 

0 

CA 

5-MAX 

10,2422 

6 4726 

0 

AD 

S-MAX 

C(A)  = 10  - 

10,2423 

0 0006 

1 

EXTEND 

10,2424 

01  002 

1 

WRITE 

0 

10,2423 

4 0000 

0 

CS 

A 

01  . 37776 

10,2426 

0 0006 

1 

extend 

10,2427 

00  002 

0 

READ 

0 

10  - OOOOl 

lO.ZftiO 

55*034 

0 

TS 

XEEPl 

10,2431 

0 4770 

0 

TC 

ERRORS 

10,2432 

3 1034 

1 

CA 

KEEPl 

10,2433 

6 4725 

0 

AD 

S + MAX 

10,2434 

0 4761 

0 

TC 

-IChK  -1 

normal 

USE 

OF 

RANDt 

RAND  b read  and  MAsK 

10,2435 

3 4711 

1 

RANDCHK 

CA 

S+ZERO 

10,293ft 

54  OOl 

1 

TS 

L 

10,2437 

0 0006 

1 

EXTEND 

10,2440 

02  OOl 

1 

RANd 

L 

00000,  00000 

10,2441 

0 4753 

1 

TC 

-OCHK  -1 

10,2442 

3 4746 

0 

CA 

S-ZErO 

10,2443 

0 0006 

1 

EXTeNd 

10,2444 

02  001 

1 

RAND 

L 

77777,  0000 

10,2445 

0 4753 

1 

TC 

-OCHK  -1 

10,2446 

4 0000 

0 

CS 

A 

10,2447 

54  001 

1 

TS 

L 

10,2450 

4 0000 

0 

CS 

A 

10,2451 

0 0006 

1 

extend 

10,2452 

02  OOl 

1 

RaNd 

L 

00000,  77777 

10,2453 

0 4753 

1 

TC 

-OCHK  -1 

10,2454 

3 4746 

0 

CA 

5-ZErO 

10,2455 

0 0006 

1 

EXTeNd 

10,243ft 

02  001 

1 

RAND 

L 

77777,  77777 

10,2457 

0 4754 

0 

TC 

-OCHK 

10,2460 

3 4725 

0 

RANpOV 

CA 

s*max 

10,2461 

6 47I3 

0 

AD 

5 + 2 

01  - OOOOl 

10,24S2 

56  002 

0 

XCH 

Q 

10,2453 

3 4746 

0 

CA 

s-zero 

77777 

10,24*4 

0 0006 

1 

EXTEND 

10,2465 

02  002 

1 

RAnD 

0 

01  - OOOOl 

10,2466 

55*034 

0 

TS 

KEEPl 

10,2467 

0 4770 

0 

TC 

ERRORS 

10,2470 

0 4761 

0 

TC 

-ICHK  -1 

10,24T1 

4 IO34 

0 

CS 

KEEPl 

10,24f2 

0 4762 

0 

TC 

-ICHK 

normal 

USE 

OF 

wand, 

wAND  ■ WRITE  AND 

MASK 

10,2473 

3 4711 

1 

WAnDChK 

CA 

S,ZErO 
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Ins 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 
1U9 

1150 

1151 

r1152 

1153 

1154 

1155 

1156 
U57 

1158 

1159 

1160 
1161 
1162 


ACC  BLK2  INSTRUCTION  CHECK 


USER'S  OWN  PAGE  NO*  25 


10,2474 

54  001 

1 

TS 

L 

10,2475 

0 0006 

1 

extend 

10,2476 

03  001 

0 

WAND 

L 

10,2477 

6 0001 

0 

AD 

1 

10,2500 

0 4753 

1 _ 

TC 

-OCHK  -1 

10,2501 

3 4746 

0 

CA 

S-ZERO 

10,2502 

0 0006 

1 

EXTEND 

10,2503 

03  OOl 

0 

WAND 

L 

10,2504 

6 0001 

0 

AD 

L 

10,2505 

0 4753 

1 

TC 

-OCHK  -1 

10,2506 

4 0000 

0 

C5 

A 

10,2507 

54  001 

1 

TS 

L 

10,2510 

4 0000 

0 

CS 

A 

10,2511 

0 0006 

1 

extend 

10,2512 

03  001 

0 

WAND 

L 

10,2513 

6 0001 

0 

AD 

L 

10,2514 

0 4793 

1 

TC 

-OCHK  -1 

10,2515 

3 4746 

0 

CA 

s-zero 

10,2516 

54  001 

1 

TS 

L 

10,2517 

0 0006 

1 

extend 

10,2520 

03  001 

0 

wand 

L 

10,2521 

6 0001 

0 

AD 

L 

10,2522 

0 4794 

0 

TC 

-OCHK 

10,2523 

3 4725 

0 WANDUp 

CA 

S+MAX 

10,2524 

6 4713 

0 

AD 

S«2 

10,2525 

56  002 

0 

XCH 

0 

10,2526 

3 4746 

0 

CA 

S-ZERO 

10,2527 

0 0006 

1 

EXTEND 

10,2530 

03  002 

0 

WAND 

0 

10,2531 

55*035 

1 

TS 

KEEP2 

10,2532 

0 4770 

0 

TC 

ERRORS 

10,2533 

3 0002 

0 

CA 

0 

10,2534 

59*034 

0 

TS 

KEEP! 

10,2535 

0 4770 

0 

TC 

ERRORS 

10,2536 

4 1034 

0 

CS 

KEEPl 

10,2537 

0 4762 

0 

TC 

-ICHK 

10,25A0 

4 1035 

1 

CS 

KEEpZ 

10,2591 

0 4762 

0 

Tc 

-IcHK 

normal  USE  OF  ror»  rEAD  AnD  supErimpose 


10,2542 

3 4711 

1 RoRrHK 

CA 

S+Z^RO 

10,2543 

54  001 

1 

TS 

L 

10,2544 

0 0006 

1 

extend 

10,2595 

04  001 

1 

ROR 

L 

10,2596 

0 4753 

1 

TC 

-OCHK  -1 

10,25^7 

3 0001 

0 

CA 

L 

10,2550 

0 4753 

1 

TC 

-OCHX  -1 

10,2591 

3 4746 

0 

CA 

S-ZERO 

10,2592 

0 0006 

1 

extend 

IV, 2553 

04  001 

1 

ROR 

L 

00000,  00000 


77777,  00000 


00000,  77777 


77777,  77777 


01  - OOOOl 
77777 


00000,  00000 


77777*  00000 
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iNS  AGC  BLK2  jNSTRUCTjON  ChECK  USER'S  OWN  PAgE  NO.  26 


1163 

10,2554 

0 4754 

0 

tc 

-OCHK 

1164 

10,2555 

3 0001 

0 

CA 

L 

H6S 

10,2556 

0 4753 

1 

TC 

-OCHK  -1 

1166 

10,2557 

4 0000 

0 

C5 

A 

1167 

10,2560 

54  001 

1 

TS 

L 

1168 

10,2561 

4 0000 

0 

CS 

A 

1169 

10,2562 

0 0006 

1 

EXTEND 

II7O 

10,2563 

04  OOl 

1 

ROR 

L 

00000,  77777 

II7I 

10,2564 

0 4754 

0 

TC 

-OCHK 

1172 

10,2565 

3 OOOi 

0 

CA 

L 

1173 

10,2566 

0 4754 

0 

TC 

-OCHK 

1174 

1U,2567 

3 4746 

0 

CA 

5-ZERO 

1175 

10,2570 

0 0006 

1 

extend 

1176 

10,2571 

04  001 

1 

ROR 

U 

77777,  77777 

II77 

IV. 2572 

0 4754 

0 

TC 

-OCHK 

1178 

10,2573 

3 4726 

0 

ROROv 

CA 

S-MAX 

1179 

10,25H 

6 4744 

1 

AD 

S-2 

10  . 37776 

1180 

10,2575 

56  002 

0 

XCH 

0 

1181 

10,2576 

3 4725 

0 

CA 

5 + MAX 

1182 

10,2577 

6 4712 

1 

Ad 

5 + 1 

01  . 00000 

1103 

10,2600 

0 0006 

1 

EXTEND 

1184 

10,2601 

04  002 

1 

RoR 

0 

11  - 37776 

1185 

10,2602 

55.034 

0 

TS 

KEEPl 

1186 

10,2603 

0 2605 

0 

TC 

♦ 2 

1187 

10,2604 

0 4770 

0 

TC 

ERRORS 

1188 

10,2605 

3 1034 

1 

CA 

KEEPl 

1189 

10,2606 

0 4762 

0 

TC 

-ICHK 

iU90 

normal  use  of  WOR,  WOR  a WRITE  ANq  SUPERIMPOSE 

1191 

10,2607 

3 4711 

1 

WORCHK 

CA 

S*ZERO 

1192 

10,2610 

54  001 

1 

TS 

L 

1193 

10,26il 

0 0006 

1 

EXTEND 

1194 

10,2612 

05  001 

0 

WOR 

L 

00000,  00000 

1195 

10,2613 

0 4753 

1 

TC 

-OchK  -1 

1196 

10,2614 

3 0001 

0 

CA 

1 

1197 

10,2615 

0 4753 

1 

TC 

-OCHK  -1 

1198 

10,26i6 

3 4746 

0 

CA 

5-ZeRO 

1199 

10.2617 

0 0006 

1 

EXTEND 

1200 

10,2620 

05  001 

0 

WoR 

L 

77777,  OOOOO 

1201 

10,2621 

0 4754 

0 

TC 

-OCHK 

1202 

10,2622 

3 0001 

0 

CA 

L 

1203 

10,2623 

0 4754 

0 

TC 

-OChK 

I2O4 

10.2624 

4 0000 

0 

CS 

A 

1205 

10,2625 

54  OOl 

1 

TS 

L 

1206 

10,2626 

4 0000 

0 

cs 

A 

1207 

10.2627 

0 0006 

1 

EXTEND 

1208 

10,2630 

05  001 

0 

WOR 

L 

00000,  77777 

1209 

10,2631 

0 4754 

0 

TC 

-OCHK 

1210 

10,26s2 

3 0001 

0 

CA 

L 

1211 

10,2633 

0 4754 

0 

TC 

-OCHK 

275690  YUL  SYSTEM  pOR  BLK2!  REVjSiON  0 Op  PROGRAM  RETREDAA  BY  NASA  20211 


INS  AGC  BLK2  INSTRUCTION  CHECK 


1212 

10,2634 

3 4726 

0 

CA 

5-MAX 

1213 

10,2635 

0 0006 

1 

extend 

1214 

10,2636 

05  001 

0 

WOR 

L 

121s 

10,2637 

0 4754 

0 

TC 

-OCHK 

1216 

10,26‘*0 

3 0001 

0 

CA 

L 

1217 

10,2691 

0 4754 

0 

TC 

-OCHK 

1218 

10,2642 

3 4725 

0 

WOROV 

CA 

5-MAX 

1219 

10,2693 

6 4794 

1 

AD 

5-2 

1220 

10,2694 

56  002 

0 

XCH 

Q 

1221 

10,2695 

3 4725 

0 

CA 

S*MAX 

1222 

10,2646 

6 4712 

1 

AD 

S*1 

1223 

10,2697 

0 0006 

1 

extend 

1224 

10,2650 

05  002 

0 

WOR 

(3 

1225 

10,2651 

55*035 

1 

T5 

KEEP2 

1226 

10,2652 

1 2694 

0 

TCP 

♦ 2 

1227 

10,2693 

0 4770 

0 

TC 

errors 

1228 

10,2694 

56  002 

0 

XCH 

Q 

1229 

10,2655 

55*036 

1 

TS 

KEEP3 

1230 

10,2696 

0 2660 

0 

TC 

♦ 2 

1231 

10,2697 

0 4770 

0 

TC 

errors 

1232 

10,2660 

3 1036 

0 

CA 

KEEPS 

1233 

10,2651 

0 4762 

0 

TC 

-ICHK 

1234 

10,2652 

3 1036 

0 

CA 

KEEP2 

1235 

10,2653 

0 4762 

0 

TC 

-ICHK 

R1236  normal  use  OP  RXOR 

1237 

10 ,2654 

3 4711 

1 

rxorchk 

CA 

S*ZER0 

1238 

10,2665 

54  001 

1 

TS 

L 

1239 

10,2656 

0 0006 

1 

EXTEND 

1240 

10,2667 

06  001 

0 

RXOR 

L 

1241 

10,2670 

0 4753 

1 

TC 

-OCHK  -1 

1242 

10,2671 

3 4746 

0 

CA 

5-ZErO 

1243 

10,2672 

0 0006 

1 

EXTeNd 

1244 

10,2673 

06  001 

0 

RXOR 

L 

1245 

10,2674 

0 4754 

0 

TC 

-OCHK 

1246 

10,2675 

3 0001 

0 

CA 

L 

1247 

10,2676 

0 4753 

1 

TC 

-OchK  -1 

1245 

10,2677 

0000 

0 

C5 

A 

1249 

10,2700 

54  001 

1 

TS 

L 

1250 

10,2701 

4 0000 

0 

cs 

A 

1251 

10,2702 

0 0006 

1 

EXTEND 

1252 

10,2703 

06  001 

0 

RxOR 

L 

1263 

10,2704 

0 4754 

0 

TC 

-OCHX 

1254 

10,2705 

3 474G 

0 

CA 

5-ZERO 

1255 

10,2706 

0 0006 

1 

extend 

1256 

10,2707 

06  001 

0 

RXOR 

L 

1257 

10,2710 

0 4753 

1 

TC 

-OCHK  -1 

1258 

10,2711 

3 0001 

0 

CA 

L 

1259 

10,2712 

0 4794 

0 

TC 

-ochk 

1260 

10,2713 

4 0000 

0 

CS 

A 

JUL  9*  1965  (MAIN)  PA(5E  236 


USER'S  OWN  pAGE  NO*  Z1 
mn%  77777 


10  - 37776 

01  _ OOOOO 

11  - 37776 

should  not  skip 


CHECK  C(Q) 
CHECK  C(A) 

OOOOO,  OOOOO 
77777*  OOOOO 


OOOOO,  77777 


77777,  77777 


275690 

INS 

1261 

1262 

1263 

1266 

1265 

1266 

1267 

1268 

12681 

1269 

12691 

R1270 

1271 

1272 

1273 

R1276 

R1275 

1276 

1277 

1278 

1279 

1280 

1281 

R1282 

1283 

1286 

1285 

1286 

R1287 

1288 

1289 

1290 

l29i 

1292 

1293 

R1296 

1295 

1296 

1297 

1298 

1299 

1300 

R1301 

1302 

1303 

1306 

1305 
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AGC  BLK2  instruction  CHECK  USER'S  OwN  PAGE  NO,  28 


10,2?16 

56  002 

1 

TS 

0 

10,2715 

3 6725 

0 

RXORUV 

CA 

S+MAX 

10,2716 

6 6713 

0 

AD 

S6Z 

01  _ 00001 

10,2717 

0 0006 

1 

EXTEND 

10,2720 

06  002 

0 

RXOR 

D 

10  - 37776.  C(0)  s -0 

10,2721 

55'036 

0 

TS 

KEEPl 

10,2722 

0 6770 

0 

TC 

errors 

10,2723 

3 1036 

1 

CA 

KEEPl 

10,2726 

0 6762 

0 

TC 

-ICHK 

10,2725 

0 6226 

1 

Tc 

CHEcKNJ 

CHEcK  for  new  job 

10,2726 

0 2732 

0 

TC 

XTRANOx 

NEXT 

THREE  constants  ARE  AddRESSESS  USEc 

1 BY  EXTRAcOdE  instructions 

10,2727 

02790 

0 

ADRSBZMF 

ADRES 

NDXBZMF 

10,2730 

02796 

1 

ADRSDCA 

ADRES 

NDXDCA 

iy,2731 

03033 

1 

ADRSQXCH 

ADRES 

NDXAUG 

normal  USE  OF  INDEX  WITH  EXTRACqDE  INSTRUCTIONS 

index 

INSTRUCTION 

USED  WITH 

index  and  B2F 

10,2732 

3 6711 

1 

xtrandx 

CA 

5*ZER0 

10,2733 

0 0006 

1 

EXTEND 

10,2736 

5 6711 

1 

NDX 

5+ZERO 

10,2735 

5 2727 

1 

NDX 

ADRSBZMF 

10,2736 

1 0000 

0 

BZF 

00000 

RZF  +2 

10,2737 

0 6770 

0 

TC 

errors 

index 

INSTRUCTION 

USED  WITH  1 

32MF 

10,2790 

0 0006 

1 

NDXBZMF 

extend 

10,2791 

5 2730 

1 

NDX 

ADRSDCA 

10,2792 

6 0000 

1 

BZMF 

0000 

0ZMF*2 

10,2793 

0 6770 

0 

TC 

ERRORS 

index 

INSTRUCTION 

USED  with  I 

3CA 

10,2796 

0 0006 

1 

NDXDCA 

EXTEND 

10,2765 

5 6751 

0 

INDEX 

ADRS+I 

OCA  5+1 

10,2796 

3 0001 

0 

DCA 

0000 

C(A)  = +1.  C(L)  = +2 

10.2767 

6 0000 

0 

CS 

A 

10,2750 

6 0001 

0 

AD 

L 

10,2731 

0 6761 

0 

TC 

-ICHK  -1 

index 

INSTRUCTION 

USED  WITH  1 

X5 

10,2752 

0 0006 

1 

extend 

10,2753 

5 6751 

0 

index 

ApRS+l 

DCS  S+1 

10,2756 

6 0001 

1 

DCS 

0000 

C(A)  B -1,  C(U  s -2 

10,2755 

6 0000 

0 

CS 

A 

IV.2756 

6 0001 

0 

ad 

1 

10,2757 

0 6762 

0 

TC 

-ICHK 

index 

instruction 

USED  ^IjH  1 

MP  AND  Su 

10,2760 

3 6725 

0 

CA 

s.max 

37777 

10,2761 

0 0006 

1 

EXTEND 

10,2762 

5 6751 

0 

NDX 

ADRS*l 

10,2763 

7 0001 

1 

MP 

0001 

C(A)  s 1.  C(L)  » 37776 

275690 

iNS 

1306 

1307 

1300 

1309 

1310 

1311 

R1312 

1313 

1314 

1315 

1316 

1317 

1310 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

R1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

R1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

R1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 
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AGC  8LK2  INSTRUCTION 

Check 

U5ER*5  OWN  PAGE  NO,  29 

10,2764 

0 4761 

0 

TC 

-ICHK  -1 

10,2765 

3 4725 

0 

CA 

5+MAX 

37777 

10,2766 

0 0006 

1 

EXTEND 

10,2767 

5 47IZ 

1 

NDX 

S,1 

10,2770 

60  000 

1 

SU 

0000 

10,2771 

0 4761 

0 

TC 

-ICHK  -1 

INDEX 

INSTRUCTION  USED  WITH  Dv 

10,2772 

3 4747 

1 

MDXDV 

CA 

DVlCON 

PUT  14000  (3/8)  IN  «EEP3 

10,2773 

551036 

1 

TS 

KEEPS 

10,2774 

3 4711 

1 

CA 

S+ZERO 

10,2775 

54  001 

1 

TS 

L 

10,2776 

3 47O6 

1 

CA 

SBIT13 

10000 

10,2777 

0 0006 

1 

extend 

10,3000 

5 4665 

0 

NDX 

A0RS3 

10,3001 

10  000 

0 

DV 

0000 

C(A)  s 25252,  CU.)  = 10000 

10,3002 

55»034 

0 

TS 

KEEPl 

10,3003 

3 4746 

0 

CA 

S-Ze;RO 

10,3064 

56  001 

0 

XCH 

L 

10,3065 

4 0000 

0 

cs 

A 

10, 3066 

0 0006 

1 

EXTeND 

10,3067 

5 A665 

0 

NDX 

A0RS3 

10,30i0 

10  000 

0 

DV 

0000 

10,3011 

6 103A 

1 

AD 

KEEPl 

10,3012 

0 475A 

0 

TC 

-OCHK 

INDEX 

USED  WITH  mSU 

(C(A)  = *0*  C(K) 

X 

-0)  (result  e -1) 

10,3013 

3 4711 

1 

NdXMSU 

CA 

S+ZeRO 

10,3014 

55*034 

0 

TS 

KEEPl 

10,3015 

4 0000 

0 

CS 

A 

10,3016 

0 0006 

1 

extend 

10,3017 

5 A663 

0 

NDX 

ADRSl 

MSU  KEEPl 

10,3020 

20  000 

0 

MSU 

0000 

C(A)  s -1 

10,3021 

0 4762 

0 

TC 

-ICHK 

index 

USED  WITH  QXCH 

10,3022 

3 2731 

0 

NDXqXCH 

CA 

ADrSqXCH 

10,3023 

55*034 

0 

TS 

KeePI 

10,3024 

0 3026 

0 

TC 

+ 2 

10,3025 

0 4770 

0 

tc 

errors 

10,3026 

0 0006 

1 

EXTEND 

10,3027 

5 A663 

0 

NDX 

ADRSl 

OXCH  KEEPl 

10,3030 

22  000 

1 

QXCH 

0000 

10,3031 

0 0002 

0 

TC 

0 

10,3032 

0 477O 

0 

TC 

ERRORS 

INDEX 

USED  wlTH  AuQ 

10,3033 

4 4711 

0 

NDXAUg 

CS 

5+ZERO 

10,3034 

55*034 

0 

TS 

KEEPl 

00000 

10,3035 

0 0006 

1 

EXTEND 

10,3036 

5 A663 

0 

NpX 

AoRSI 

AUG  KeePI 

10,3037 

24  000 

1 

AUG 

0000 

10,3040 

3 1034 

1 

CA 

KEEPl 

10,3041 

0 47fi2 

0 

TC 

-iCHK 

275690 
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INS  AGC  BLK2  INSTRUCTION  CHECK  USER'S  OwN  PAGE  NO.  30 


R1356 

index 

used 

WITH 

dim 

1357 

10,3042 

3 4713 

0 

NDxDIM 

CA 

5 + 2 

135a 

10,3043 

55*034 

0 

TS 

KEEPI 

1359 

10,3044 

0 0006 

1 

EXTEND 

1360 

10,3045 

5 4663 

0 

NDx 

AORSl 

DIM  KEEPI 

1361 

10,3046 

26  000 

0 

DIM 

0000 

1362 

10,3047 

4 1034 

0 

C5 

KEEPI 

1363 

10,3050 

0 4762 

0 

TC 

-ICHK 

R1364 

normal  use 

OF  INdEx 

WITH  IN-OUT  instructions 

R1365 

INDEX 

USED 

WITH 

WRITE  and  read 

1366 

10,3051 

3 4745 

0 

NDXINoUT 

CA 

S.l 

1367 

10,3052 

0 0006 

1 

EXTEND 

1368 

10,3053 

5 4712 

1 

NDx 

S + 1 

WRITE  L 

1369 

10,3054 

01  000 

0 

WRITE 

0000 

1370 

10,3055 

4 0000 

0 

CS 

A 

1371 

10,3056 

0 0006 

1 

extend 

1372 

10,3057 

5 4712 

1 

NDX 

S + 1 

READ  L 

1373 

10,3060 

00  000 

1 

READ 

0000 

1374 

10,3061 

0 4762 

0 

TC 

-ICHK 

R1375 

index 

USED 

WiTH 

rand 

1376 

10,3062 

3 4712 

1 

CA 

S.I 

00001 

1377 

10,3063 

54  001 

1 

TS 

L 

1378 

10,3064 

3 4746 

0 

CA 

5-ZERO 

77777 

1379 

10,3065 

0 0006 

1 

EXTEND 

1380 

10,3066 

5 4712 

1 

ndx 

S+l 

RAnD  l 

1381 

10,3067 

02  000 

0 

RAND 

00000 

1382 

16,30'fO 

0 4761 

0 

TC 

-ICHK  -1 

R1383 

index 

USED 

With 

WAND 

1304 

10,3071 

3 4726 

0 

CA 

S-MAX 

90000 

1385 

10,3072 

6 4712 

1 

AD 

5+1 

40001 

1386 

10,3073 

54  001 

1 

TS 

L 

1387 

10 , 3O74 

3 4725 

0 

CA 

5 + MAX 

37777 

1388 

10,3075 

0 0006 

1 

extend 

1389 

10,3076 

5 4712 

1 

NdX 

5 + 1 

WANd  l 

1390 

10,3077 

03  000 

1 

WAND 

0000 

CIA)  a C(L)  » +1 

1391 

10,3100 

0 4761 

0 

TC 

-ICHK  -1 

1392 

10,3101 

4 0001 

1 

CS 

L 

1393 

10,3192 

0 4762 

0 

TC 

-ICHK 

r1394 

INDEX 

USED 

WITH 

rOr 

1395 

10,3103 

3 4712 

1 

CA 

5 + 1 

1396 

10,3104 

64  002 

1 

TS 

Q 

1397 

10,3105 

3 4711 

1 

CA 

5+ZERO 

1398 

10,3106 

0 0006 

1 

extend 

1399 

10,3107 

5 4713 

0 

NdX 

S + 2 

ROR  Q 

1400 

10,3lio 

06  000 

0 

ROR 

0000 

1401 

10,3111 

0 47&1 

0 

TC 

-ICHK  -1 

r1402 

INDEX 

USED 

with 

WOr 

1403 

10,3112 

3 4737 

0 

CA 

S-7 

I4O9 

10,3113 

54  001 

1 

TS 

L 

77770 

275690 
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INS  AGC  BLK2  INSTRUCTION  CHECK  USER'S  OwN  PAGE  NO.  31 


1905 

10,3119 

3 9725  0 

CA 

SfMAX 

1906 

10,3ll5 

6 9795  0 

AD 

5.1 

37776 

1907 

10,3116 

0 0006  1 

extend 

1908 

10,3117 

5 9712  1 

NDX 

S + 1 

WOR  L 

1909 

10,3120 

05  000  1 

WOR 

0000 

C(A>  s C(L!  = -1 

1910 

10,3121 

0 9762  0 

TC 

-ICHK 

1911 

10,3122 

3 0001  0 

CA 

L 

1912 

10,3123 

0 9762  0 

TC 

-ICHK 

R1913 

index  used  with  rxcr 

1919 

10,3129 

3 9795  0 

CA 

5-1 

U15 

10,3125 

59  001  1 

T5 

L 

77776 

1916 

10,3126 

3 9726  0 

CA 

S+MAX 

37777 

1917 

10,3127 

0 0006  1 

extend 

1918 

10,3130 

5 9712  1 

NDX 

S.l 

RXOR  L 

1919 

10,3131 

06  000  1 

RXOR 

0000 

C(A>  s 90001 

1920 

10,3132 

6 9725  0 

AD 

S+MAX 

1921 

10,3133 

0 976I  0 

TC 

•ICHK  -1 

R19211 

CHECKS  extracode  INDEX  OF  AN 

sc  register 

19212 

10,3139 

3 9713  0 

CA 

S + 2 

19213 

10,3135 

55*039  0 

TS 

KeePI 

19219 

10,3136 

3 9663  0 

CA 

ADRSl 

ADDRESS  OF  KEEPI 

19215 

10,3137 

59  001  1 

TS 

L 

19216 

10,3190 

3 9712  1 

CA 

5 + 1 

19217 

10,3191 

0 0006  1 

extend 

19218 

10,3192 

5 0001  0 

NDX 

L 

192181 

10,3193 

60  000  1 

su 

0000 

19219 

10,3194 

0 9762  0 

TC 

-ICHK 

R1922 

CHECK  OF  SPECIAL  AnD  CENTRAL 

REGISTERS 

R1923 

CHANGE  OF  SIGN  BY  ADDING  SAME 

NUMBER  (ADDER) 

1929 

10,3195 

3 97O7  0 ADDCHK 

CA 

SB  I T 1 9 

20000 

1925 

10,3196 

6 0000  1 

AD 

A 

01  -OOOOO 

1926 

10,3197 

59  000  0 

TS 

A 

1927 

10,3150 

0 977O  0 

Tc 

ERRORS 

1928 

10,3151 

6 0000  1 

AD 

A 

10  - OOOOO 

1929 

10,3152 

59  000  0 

TS 

A 

1930 

10,3153 

0 977O  0 

TC 

errors 

1931 

10,3159 

6 0000  1 

AD 

A 

00001 

1932 

10,3155 

59  000  0 

TS 

A 

1933 

10,3156 

0 3160  0 

TC 

+ 2 

1939 

10,3157 

0 977O  0 

Tc 

errors 

1935 

10,3160 

0 9761  0 

TC 

-ICHK  -1 

pl936 

NOdMAL  OpErAtION  of  cycle  right  register 

1937 

10,3161 

3 9733  1 cYRcHK 

CA 

cYRcON 

57761 

1938 

10  3162 

55*090  0 

TS 

KEEPS 

COUNTDOWN  REGISTER 

1939 

10,3163 

3 9726  0 

CA 

5.MAX 

90000 

1990 

10,3169 

59  020  1 

TS 

CYR 

1991 

10,3165 

10  020  1 CYrLOOP 

CCS 

CYR 

1992 

10,3166 

0 3172  0 

Tc 

CYRcNTdN 

279690 
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AGC  BLK2  INSTRUCTION  ChECK 

USER*S  own  page  no,  32 

1943 

10,3167 

0 4770 

0 

TC 

ERRORS 

1444 

10,3170 

0 3174 

0 

TC 

F-NDCYR 

1445 

10, 3171 

0 477O 

0 

TC 

ERRORS 

1446 

10,3172 

25*040 

1 

CYRCNtON 

INCR 

KEEPS 

1447 

10,3173 

0 3165 

0 

TC 

CYRLOOP 

1448 

10,3174 

3 1040 

1 

ENDCYR 

CA 

KEEPS 

57777 

1449 

10,3175 

6 0020 

0 

AD 

CYr 

C(CYr)  s 20000 

1450 

10,3176 

10  000 

0 

CCS 

A 

-0  B END  OF  CYCLE  RIGHT  CHECK 

1491 

10,3177 

0 9770 

0 

TC 

ERRORS 

1452 

10,3200 

0 4770 

0 

TC 

ERRORS 

1453 

10,3201 

0 4770 

0 

TC 

ERRORS 

r1454 

normal  operation  of  cycle  left  register 

1455 

10,3202 

3 4735 

1 

cylchk 

CA 

S.15 

77760,  -15 

1456 

10,3203 

55*040 

0 

TS 

KEEPS 

COUNT  REGISTER 

1457 

10,3204 

3 4726 

0 

CA 

S-MAX 

40000 

1458 

10,3205 

54  022 

0 

TS 

CYL 

1459 

10,3206 

10  022 

0 

CYLLOOP 

CCS 

CYL 

1460 

10,3207 

0 3213 

1 

TC 

CYLCNTDN 

1461 

10,3210 

0 477O 

0 

TC 

ERRORS 

1462 

10,3211 

0 3215 

1 

TC 

ENDCYL 

1463 

10,3212 

0 4770 

0 

TC 

ERRORS 

1464 

10,3213 

25*040 

1 

CYLCNTON 

INCR 

KEEPS 

1465 

10,3214 

0 3206 

0 

TC 

CYLLOOP 

1466 

10,3215 

3 0022 

1 

endcyl 

CA 

CYL 

C(CYL)  Should  b *i 

j467 

lU,32i6 

0 4761 

0 

TC 

-ICHK  -1 

1468 

16,3217 

3 1040 

1 

CA 

KEEPS 

1469 

10,3220 

0 4762 

0 

TC 

-ICHK 

r1470 

NOrMAL  operation  of  shift  right  register 

1471 

10,3221 

3 4736 

1 

SRcHK 

CA 

S-14 

7776U  -lA 

1472 

10,3222 

55*040 

0 

TS 

KEEPS 

COUNT  register 

1473 

10;3223 

3 4726 

0 

CA 

S-MAX 

40000 

1474 

10,3224 

54  021 

0 

TS 

SR 

1475 

10,3225 

10  021 

0 

SRLOOP 

CCS 

SR 

1476 

10,3226 

0 4770 

0 

TC 

^RR0r5 

1477 

10,3227 

0 4770 

0 

Tc 

fRRORS 

1478 

10,3230 

0 3234 

1 

TC 

SRCNTDN 

1479 

10,3231 

3 1040 

1 

CA 

KEEPS 

HAS  shifted  14  tIMEs 

1480 

10,3232 

0 4762 

0 

TC 

-ICHK 

I48I 

10,3233 

0 323* 

0 

TC 

EDOPCHK 

NEXT  SUBROUTINE 

1482 

10,3234 

25*040 

1 

SRCnTDn 

I NCR 

KEEp5 

Increment  CqUnt  register 

1483 

10,3235 

0 3225 

1 

TC 

SRLOOP 

gl484 

NOrMaL  opErATIoN  of  EDop  rEGISTEr,  BITS  8-14 

oF  G rEGISTEp  Gq  To 

R1485 

rITS  1 - 7 of  edOP* 

I486 

10,3236 

3 4735 

1 

EDOPCHK 

CA 

5-15 

77760,  -15 

1487 

10,3237 

55*040 

0 

TS 

KEEPS 

COUNT  REGISTER 

1488 

10,3290 

3 4^22 

1 

CA 

S7BITS 

00177 

1489 

10,3241 

54  022 

0 

TS 

CYL 

275690  YUL  SYSTE^  pOR  0LK2;  ReViSjON  0 Op  PROqRAM  RETRED<t<>  BY 


INS  AGc  BUK2  Instruction  check 


1990 

1013292 

3 0022 

1 

EDOPLOOP 

CA 

1491 

10,3293 

54  023 

1 

T5 

19S2 

10,3294 

54  020 

1 

T5 

1993 

10,3295 

3 0020 

0 

CA 

1999 

10,3296 

3 0020 

0 

CA 

1995 

10,3297 

3 0020 

0 

CA 

1996 

10,3250 

3 0020 

0 

CA 

1997 

10,3251 

3 0020 

0 

CA 

1998 

10,3252 

3 0020 

0 

CA 

1999 

10,3253 

3 0020 

0 

CA 

1500 

19,3259 

7 4722 

0 

MASK 

isoi 

10,3255 

4 0000 

0 

C5 

1502 

10,3256 

55»034 

0 

TS 

1503 

10,3257 

3 4746 

0 

CA 

150* 

10,3260 

7 0023 

1 

MASK 

1505 

10,3261 

6 1034 

1 

AD 

1506 

10,3262 

0 4754 

0 

TC 

1507 

10,3263 

25*040 

1 

INCR 

1508 

10,3264 

10  023 

1 

CCS 

1509 

10,3265 

0 3242 

0 

TC 

1510 

10,3266 

0 32yl 

0 

TC 

1511 

10,3267 

0 4770 

0 

TC 

1512 

10,3270 

0 4770 

0 

TC 

1513 

10,3271 

3 1040 

1 

ENDeDOP 

CA 

1519 

10,3272 

0 4762 

0 

TC 

1515 

10,3273 

25*046 

1 

INcR 

1516 

10,3274 

0 5010 

0 

TC 

END  OP  REVISION  0 OF  PROGRAM  RETREDaA  By  NASA  2021100 
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USER*S  oWN  pAGE  NO*  33 

CYL 

EDoP 

CYR 

CYR 

CYR 

CYR 

CYR 

CYR 

CYR 

CYR 

S7BITS 

A 

SHIFT  LEFT  7 TIMES 

keepi 

S-ZERO 

COMpLEMEMf  OF  C(EOOP) 

EDOP 

KEEpl 

-OCHK 

keeps 

increment  count  REGISTER 

EDOP 

POOPLOOP 

ENDEDOP 

ERRORS 

ERRORS 

KEEPS 

-ICHK 

SHOULD  HAVE  PERFORMED  EDORLOOP  14  TIMES 

ScOUNT 

SMODECHK 

increment  upon  successful  cOMLETlON 

LAST  assembled  ON  JuL  6,  1965 
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SYMBOL 

definition 

health  oe  definition 

page 

lOMSRUPT 

7626 

defined  by  equals 

130 

llOMRuPT 

01,3071 

normally  defined 

128 

IIOSPIN 

0A,32Al 

NORMALLY  DEFINED 

180 

120MRUPT 

01,3070 

normally  defined 

128 

ISBitAOr 

6172 

normally  defined 

23 

2oBIAS 

0A,2617 

normally  defined 

162 

21/22REG 

0101 

defined  BY'EQUAlS 

7 

2BLANK 

04,2517 

normally  defined 

148 

2K 

7634 

defined  by  equals 

58 

2K*3 

4600 

normally  defined 

205 

2RNDEND 

04,3052 

NORMALLY  DEFINED 

173 

2ROUNO 

oa  , 3042 

NORMALLY  defined 

172 

5B10 

01,2116 

NORMALLY  defined 

101 

5BLANKI 

04,2475 

NORMALLY  defined 

147 

58LANK 

04,2454 

NORMALLY  defined 

147 

aqTtST 

04*20s3 

NORMALLY  defined 

141 

♦OECSGN 

04,2164 

NORMALLY  DEFINED 

142 

♦ DOWN 

00,2532 

normally  defined 

76 

*0N 

04,2273 

normally  defined 

144 

A 

0000 

defined  by  equals 

5 

ABCLoAD 

05,2535 

normally  defined 

165 

ABLOAD 

05,2572 

NORMALLY  defined 

165 

abort 

4662 

normally  defined 

207 

ABs 

00,3144 

NORMALLY  defined 

87 

ABVAL 

O0,3117 

NORMALLY  dEfiNED 

87 

ABVALABS 

00,3114 

NORMALLY  defined 

87 

ACCEpTUP 

01,3253 

normally  defined 

132 

ACCePTWD 

05,2024 

NORMALLY  defined 

14q 

AC0S3 

00,3564 

normally  defined 

96 

ACOSaO 

00,3551 

NORMALLY  defined 

95 

ACOSABRT 

00,3637 

normally  defined 

97 

ACoSqVF 

00,3633 

normally  defined 

97 

ACOSSHR 

00,3626 

normally  DeFINeD 

97 

AC0SST2 

00,3554 

normally  defined 

95 

acosst 

00,3537 

NORMALLY  DEFINED 

95 

acoszero 

00,3640 

NORMALLY  defined 

97 
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definition 

health  of  definition 

ADDCHK 

10»31A5 

normally  defined 

address 

6036 

normally  defined 

addrwd 

0102 

NORMALLY  defined 

ADlAX 

07AA 

NORMALLY  defined 

ADRSl 

A663 

normally  defined 

ADRS2 

A66A 

NORMALLY  defined 

ADRS3 

A665 

NORMALLY  defined 

ADRSA 

A666 

NORMALLY  defined 

ADRs5 

A667 

NORMALLY  defined 

ADRS6 

A670 

normally  defined 

ADRSt 

A67I 

NORMALLY  defined 

ADRS+1 

A751 

NORMALLY  defined 

ADRSBZMF 

10,2727 

NORMALLY  defined 

ADRSDCA 

10,2730 

NORMALLY  defined 

ADRSDVI 

A752 

NCRMALhY  defined 

ADRSQXCh 

10,2731 

NORMALLY  defined 

ADSRAX 

07A7 

NORMALLY  defined 

ALARMCON 

A727 

NORMALLY  defined 

ALLDC/OC 

05,2676 

NORMALLY  defined 

ALOAD 

05,2620 

NORMALLY  defined 

ALTM 

0060 

defined  by  equals  but  never 

ARCCOS 

00,352A 

NORMALLY  defined 

ARCSiN 

00,3522 

NORMALLY  defined 

ARG* 

7235 

NORMALLY  defined 

ArGHI 

00,333A 

normally  defined 

ARCLO 

00,3A02 

NORMALLY  defined 

ARGZER02 

7252 

normally  defined 

ArGZERO 

7255 

normally  defined 

ARThiNSF 

0A,275l 

normally  defined 

ARTOUTSF 

0A*2620 

NORMALLY  defined 

ARuPj 

0010 

defined  by  Equals 

aSINEX 

00(3621 

normally  defined 

AuOCHK 

07,2573 

normally  defined 

AXC 

01,2005 

NORMALLY  DEFINED 

AXT 

01,2000 

NORMALLY  defined 

BllTlA 

6233 

NORMALLY  defined 

B12-1 

01,3312 

normally  defined 

B3TOBA 

01,2215 

NORMALLY  defined 

B5TO08 

01,2105 

NORMALLY  defined 

BANKCALt 

A063 

NORMALLY  defined 

8ANKJUMP 

AIO5 

NORMALLY  defined 

0ANXMA5K 

6232 

NORMALLY  defined 

BANKRUPT 

0016 

defined  by  equals 

bankset 

0151 

NORMALLY  defined 

BBAnk 

0006 

defined  by  Equals 

PAGE 

ZAO 

19 

7 

11 

210 

210 

210 

210 

210 

210 

210 

211 

237 

237 

211 

237 

11 

210 

167 

166 

referred  to  6 

95 

95 

Afl 

91 

92 
AB 
A8 

171 

162 

5 


96 

221 

98 

98 


2A 

133 

lOA 

100 

105 

105 

2A 

5 

9 

5 
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health  qF  definition 

pAGE 

body 

75Z0 

NORMALLY  defined 

55 

BDSu 

703A 

NORMALLY  defined 

42 

BHIZ 

OltZ07Z 

NORMALLY  defined 

100 

BIASCOM 

04  «Z547 

NORMALLY  defined 

l6l 

BIAsHI 

00|Z510 

NORMALLY  DEFINED 

74 

BIASLO 

OOiZZSO 

NORMALLY  defined 

67 

BINCON 

4511 

NORMALLY  defined 

201 

BINROuND 

04i2761 

NORMALLY  defined 

171 

BiTlO 

7635 

NORMALLY  defined 

5S 

BITll 

7634 

NORMALLY  DEFINED 

58 

BIT12 

7633 

normally  defined 

58 

BIT13 

763Z 

NORMALLY  DEFINED 

58 

BIT14 

7631 

normally  defined 

58 

Bins 

7630 

normally  defined 

58 

BIT! 

7646 

normally  defined 

58 

bitz 

7645 

normally  defined 

58 

BIT3 

7644 

normally  defined 

58 

BITA 

7643 

NORMALLY  defined 

58 

BITS 

7642 

normally  defined 

58 

B1T6 

7641 

NORMALLY  defined 

58 

81T7 

7640 

normally  defined 

58 

BITS 

7637 

NORMALLY  DEFINED 

58 

B|T9 

7636 

NORMALLY  DEFINED 

58 

BLANKCON 

04,2532 

NORMALLY  defined 

148 

blankret 

0100 

DEFINED  BY  EQUALS  BUT 

NEVER 

REFERRED 

TO 

7 

BLOAD 

05,2631 

normally  defined 

166 

BMAgX 

0042 

defined  by  EQUALS  BUT 

NEVER 

referred 

TO 

5 

bmagy 

0043 

defined  BY  EQUALS  BUT 

never 

referred 

TO 

5 

BMAez 

0044 

defined  by  EQUALS  But 

never 

REFERRED 

TO 

5 

BOThSqN 

04,2257 

NORMALLY  defined 

144 

BOV(B) 

01,2077 

normally  defined 

100 

BPL 

01,2123 

NORMALLY  defined 

101 

BPU/BMN 

01,2114 

NORMALLY  defined 

101 

Branch 

6710 

normally  defined 

39 

BRNChCON 

04,2516 

NORMALLY  DEFINED 

148 

brupt 

0017 

DEFINED  BY  equals  BUT 

NEVER 

referred 

TO 

5 

8UF2 

0117 

normally  defined 

7 

BUF 

0114 

NORMALLY  defined 

7 

B'uF  + 

00,2366 

normally  defined 

70 

8UF- 

00,2362 

NORMALLY  DEFINED 

70 

BUFNORM 

00,2444 

NORMALLY  defined 

73 

BUMp 

04,3303 

normally  defined 

183 

BVSU 

7010 

NORMALLY  defined 

42 

BzE/GOTO 

01,2107 

normally  defined 

101 

BZFCHk 

07,2752 

NORMALLY  defined 

223 

B2MFCHK 

07*2774 

NORMALLY  defined 

224 
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SYMBOL 

definition 

health  of  definition 

CADRSTOR 

0676 

normally  defined 

CALL 

6643 

NORMALLY  DEFINED 

CALLCODE 

7657 

NORMALLY  defined 

call/ita 

01*2127 

NORMALLY  defined 

CCALL 

6631 

NORMALLY  DEFINED 

CCSChK 

07,2011 

NORMALLY  defined 

CDRVE 

01,3074 

NORMALLY  defined 

CDUX 

0032 

defined  by  Equals 

COUXCMD 

0050 

DEFINgP  by  equals 

BUT 

Never 

CDUy 

0033 

defined  By  equals 

BUT 

NEVER 

CDUYCMD 

0051 

DEFINED  by  equals 

BUT 

NEVER 

CDUZ 

0034 

defined  by  equals 

CDuZCMD 

0052 

DEFINED  BY  EOmALS 

But 

never 

CGOTO 

6671 

NORMALLY  defined 

CHANllC 

01,3046 

NORMALLY  defined 

chan  13 

0013 

defined  by  equals 

CHAND5P 

05,2436 

NORMALLY  defined 

CHANG  1 

4152 

normally  defined 

ChANG2 

4160 

NORMALLY  defined 

CHANJOB 

01,2316 

NORMALLY  defined 

chanload 

05,3044 

NORMALLY  DEFINED 

ChAR 

0103 

defined  by  equals 

charalrm 

04,3253 

NORMALLY  defined 

CHArIN 

04,2002 

normally  defined 

ChECKNJ 

4224 

NORMALLY  defined 

CHRPRIO 

45O2 

normally  defined 

CLEArI 

04,2441 

normally  defined 

clear 

04,2407 

NORMALLY  defined 

CLOAD 

05,2646 

NORMALLY  defined 

CLPASHl 

0a,2424 

NORMALLY  DEFINED 

CLPASS 

0655 

NORMALLY  DEFINED 

CLR5 

04,2444 

NORMALLY  defined 

CNTjNU 

07,2423 

NORMALLY  DEFINED 

code 

0110 

DEFINED  BY  equals 

COMP 

7605 

NORMALLY  defined 

COMPiCK 

05,2443 

NORMALLY  defined 

comptest 

05*H3T6 

NORMALLY  defined 

CoMpTSTl 

05,2400 

normally  defined 

CONTINU 

07,3163 

NORMALLY  defined 

CONuMNOR 

05,2756 

normally  defined 

COREINC 

01,2416 

NORMALLY  defined 

CORFOUND 

01,2252 

NORMALLY  defined 

Cosine 

00,3431 

normally  defined 

COUNT 

0127 

defined  by  equals 

CRlTCON 

04,2176 

NORMALLY  defined 

CYl 

0022 

defined  by  equals 

cylchk 

10,3202 

NORMALLY  defined 

CYLCntDN 

10,3213 

normally  defined 

PAGE 

10 

37 

5r 

101 

37 

212 

126 


5 

Referred  to  5 

REFERRED  TO  5 

REFERRED  TO  5 

5 

referred  to  5 


38 

127 

14 

159 

107 

107 

111 

169 

7 

181 

140 

117 

201 

147 

146 

166 

146 
10 

147 
218 

7 
57 

159 

158 

158 

226 

168 

113 

110 

93 

8 

142 

5 

241 

241 
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SYMBOL 

definition 

health  qP  OEFiNITInN 

page 

cylloop 

10*3206 

NORMALLY  defined 

241 

CYR 

0020 

defined  by  EQuALS 

5 

CYRChK 

10i3161 

NORMALLY  DEFINED 

240 

cyrcntdn 

10,3172 

normally  defined 

241 

CYrCoN 

4733 

normally  defined 

210 

CYRLOOP 

10,3165 

NORMALLY  defined 

240 

DAD 

6750 

normally  defined 

40 

OANZiC 

6014 

normally  defined 

18 

DAS** 

07,3234 

NORMALLY  DEFINED 

215 

DAs**OV 

07,2250 

NORMALLY  defined 

216 

DAS*  — * 

07,2266 

NORMALLY  DEFINED 

216 

DAS— 

07,2306 

NORMALLY  defined 

216 

DAS— UV 

07,2322 

NORMALLY  defined 

217 

DATACALU 

4116 

NORMALLY  defined 

106 

DAtAWAIT 

4420 

normally  defined 

168 

DATWAiTl 

4426 

NORMALLY  defined 

189 

DCOMP 

7622 

normally  defined 

57 

DOV 

7514 

NORMALLY  defined 

55 

DDVCAU 

00,2722 

normally  defined 

81 

DDV/BDDV 

00,2332 

normally  defined 

70 

DECBrNCH 

0640 

NORMALLY  defined 

10 

DEC0SP3 

05,2522 

NORMALLY  defined 

160 

DECOsP 

05,2445 

NORMALLY  defined 

159 

decend 

04,2152 

NORMALLY  defined 

142 

DECON 

04,2203 

NORMALLY  DEFINED 

143 

DECOuNt 

0103 

DEFINED  BY  EOyALs 

7 

decret 

0101 

defined  by  equals 

7 

decround 

Oa,3132 

NORMALLY  DEFINED 

l77 

DECpEM 

0106 

DEFINED  BY  EQyALs 

7 

DECTOBtN 

04,2117 

NORMALLY  DEFINED 

141 

DEGCOM 

04*2603 

NORMALLY  defined 

l62 

DECCoNl 

04,2744 

normally  defined 

171 

DEGC0N2 

04,2746 

NORMALLY  defined 

171 

DEGINSF2 

04,2712 

normally  defined 

170 

DEGINsF 

04,2701 

NORMALLY  defined 

170 

DEQOUTSF 

04,2533 

normally  defined 

161 

DEGTAB 

04,2613 

NORMALLY  defined 

162 

delr 

1000 

normally  defined 

11 

deltaq 

1015 

NORMALLY  defined 

11 

delvel 

1006 

normally  defined 

11 

DELVX 

0756 

NORMALLY  defined 

11 

desoptx 

0752 

NORMALLY  defined 

11 

DFRNT 

04,3221 

normally  defined 

180 

DIMCHk 

07,2622 

NORMALLY  DEFINED 

221 

DIRADRES 

6041 

NORMALLY  defined 

19 

DISpBUF 

1023 

normally  defined 

12 

displace 

05,2753 

normally  DePINed 

168 

distem 

0106 

defined  By'EQuALs 

7 
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PAGE 

oload 

6464 

normally  defined 

33 

DLOADCOD 

7660 

NORMALLY  defined 

58 

DLOAD* 

7661 

NORMALLY  defined 

59 

DMPl 

7507 

NORMALLY  defined 

55 

DMP 

7062 

NORMALLY  defined 

44 

DMPK 

7511 

normally  defined 

55 

DMPSUB 

7O66 

NORMALLY  defined 

44 

OODLOAD 

6454 

normally  defined 

32 

dodload* 

6071 

NORMALLY  defined 

21 

DOPROC 

04*3430 

NORMALLY  DEFINED 

190 

dosshft 

00«2302 

normally  defined 

68 

DOSTORe 

6341 

normally  defined 

28 

DOT 

7275 

normally  defined 

49 

DOTERm 

04»3426 

normally  defined 

190 

DOTINC 

0122 

NORMALLY  DEFINED 

8 

DOtIXBr 

01,2056 

NORMALLY  defined 

99 

DOTRET 

0123 

NORMALLY  defined 

8 

DOTSUB 

7134 

NORMALLY  DEFINED 

46 

DOuBLK 

04,2513 

normally  defined 

148 

DOVLOAD 

6457 

NORMALLY  DEFINED 

32 

DOVLOAD» 

6462 

NORMALLY  defined 

32 

DPlOuTsF 

04,2625 

NORMALLY  defined 

162 

DP20UTSF 

04,2632 

NORMALLY  DEFINED 

163 

DP30UTSF 

04,2634 

NORMALLY  DEFINED 

163 

DpINCOM 

04,3016 

NORMALLY  defined 

172 

DPiNORM 

04,3024 

NORMALLY  DEFINED 

172 

DPINSF2 

04,3026 

NORMALLY  defined 

172 

DPIN5F 

04,3001 

normally  defined 

172 

DPOSMAX 

7625 

NORMALLY  defined 

58 

DPOUT 

04,2637 

NORMALLY  defined 

163 

DPOgi-COM 

04,2650 

normally  defined 

163 

dpoutnor 

04,2660 

NORMALLY  DEFINED 

163 

DPTE5T1 

05*2250 

NORMALLY  DEFINED 

154 

optEst 

05,2236 

NORMALLY  defined 

153 

DSaUMOUT 

0011 

DEFINED  BY  EQUaLS 

14 

DsEXIt 

0100 

defined  by  EQuALS 

7 

DSLV 

04,3233 

NORMALLY  DEFINED 

180 

DSMA6 

0126 

DEFINED  BY'EQUALS 

8 

DSMSK 

04,3235 

norMali-y  defined 

180 

DSP2bIT 

05,3255 

normally  DeFINeo 

179 

D5P2DEC 

04,3133 

normally  defined 

178 

DSPA 

05,2340 

NORMALLY  DEFINED 

158 

dspab 

06,2333 

NORMALLY  defined 

158 

DSPABC 

05,2326 

normally  defined 

158 

OSPALARM 

04,3255 

normally  DeFINfD 

181 

DSPB 

05,2345 

normally  defined 

158 

OSPC 

05,2352 

normally  defined 

158 

DSPCNT 

O7I4 

NORMALLY  defined 

10 

DsPCoMl 

05,2343 

normally  defined 

158 
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SYMBOL 

definition 

health  of  definition 

pAGE 

DSPCOM2 

05*Z357 

NORMALLY  defined 

15b 

DsPCOMS 

05,2365 

normally  defined 

158 

OSPCOUNT 

0637 

normally  defined 

10 

dspdceno 

05,2513 

normally  defined 

l60 

DsPOCQEt 

05,2A5A 

normally  defined 

160 

DSPDCPUT 

05,2464 

NORMALLY  defined 

160 

DSPDCWDl 

0A«3105 

NORMALLY  defined 

I77 

DsPDECwO 

04,3057 

NORMALLY  defined 

177 

ospopdec 

04,2662 

NORMALLY  defined 

163 

DSPFMEM 

05,3214 

normally  defined 

l76 

DsPiNl 

04,3204 

NORMALLY  defined 

180 

DSPiN 

04,3157 

NORMALLY  defined 

179 

DSPLAY 

01,3132 

NORMALLY  defined 

130 

DsPLAYC 

01,3143 

NORMALLY  DEFINED 

130 

DSPLIST 

0702 

NORMALLY  defined 

10 

DSPLOCK 

0652 

NORMALLY  defined 

10 

DsPLV 

05,3252 

NORMALLY  defined 

179 

dspmmi 

05,3403 

NORMALLY  defined 

189 

DSPMM 

05,2001 

NORMALLY  DEFINED 

149 

DSPMMENO 

05,3413 

NORMALLY  defined 

189 

DSPMMTEM 

0124 

DEFINED  BY  EQUALS 

8 

DSPMSK 

7652 

defines^  by  Equals 

179 

dspoctin 

04,3247 

NORMALLY  defined 

181 

OSPOCTwO 

05,3222 

normally  defined 

178 

DSPOFF 

01,3002 

NORMALLY  defined 

125 

DSPOUT 

01,3104 

NORMALLY  DEFINED 

130 

dspscan 

01,3115 

NORMALLY  defined 

130 

dspsfnor 

05,2507 

NORMALLY  defined 

160 

OSPTAB 

0662 

NORMALLY  defined 

10 

dsptemi 

0706 

NORMALLY  defined 

10 

DSPTEM2 

0711 

NORMALLY  DEFINED 

10 

DSQ 

00,3107 

NORMALLY  defined 

87 

DSqSUB 

00,3217 

normally  defined 

69 

DSReL 

0125 

defined  by  equals 

8 

D5RUPTEM 

0624 

DEFINED  By  EQuALS 

9 

DSRUPTSW 

1020 

NORMALLY  defined 

12 

DSU 

6776 

NORMALLY  defined 

41 

DuMMYJOB 

4215 

NORMALLY  defined 

117 

DVU* 

10,2001 

NORMALLY  DEFINED 

227 

DVI  + - 

10,2015 

NORMALLY  defined 

227 

DVICON 

4747 

NORMALLY  defined 

Ell 

DV1-  + 

10,2024 

NORMALLY  defined 

227 

Dvl  — 

10,2031 

normally  defined 

227 

DV2t  + 

10,2041 

NORMALLY  DEFINED 

227 

0V2*- 

10,2054 

NORMALLY  defined 

227 

DVZCoN 

4750 

normally  defined 

211 

DVZ-  + 

10,2064 

NORMALLY  defined 

228 

DvZ  — 

10,2070 

normally  defined 

228 

DV3+* 

10,2103 

NORMALLY  DEFINED 

228 

DV3  + - 

10,2111 

NORMALLY  DIFInED 

228 
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definition 

health  of  definition 

PAGE 

0V3-  + 

I0i2120 

NORMALLY  defined 

228 

DV3— 

10.212A 

NORMALLY  defined 

228 

OVA** 

10«2134 

NORMALLY  DEFINED 

229 

DVA*- 

l0f21A6 

NORMALLY  defined 

229 

OVA-* 

10,2156 

NORMALLY  defined 

229 

DVA— 

10|216A 

NORMALLY  DEFINED 

229 

DV5  + * 

10,2200 

NORMALLY  defined 

229 

DV5»- 

10,2210 

normally  defined 

230 

DV5""  + 

10,2221 

NORMALLY  defined 

230 

DV5— 

10,2233 

NORMALLY  defined 

230 

DV6  + + 

10*2250 

NORMALLY  defined 

230 

DV6  + - 

10,2264 

NORMALLY  defined 

230 

DV6-  + 

10,2272 

NORMALLY  defined 

231 

DV6— 

10,2302 

normally  defined 

231 

DV7  + * 

10,2312 

normally  defined 

231 

DV7+- 

10,2323 

normally  defined 

231 

0V7-  + 

10,2331 

NORMALLY  DEFINED 

231 

DV7— 

10,2340 

NORMALLY  defined 

231 

DV8  + + 

10,2347 

NORMALLY  defined 

232 

DV8+- 

10,2361 

normally  defined 

232 

DV8.4. 

10,2371 

NORMALLY  defined 

232 

DV8  — 

10,2401 

NORMALLY  DEFINED 

232 

DVNOrM 

00,2451 

normalhy  defined 

73 

dvnormct 

0123 

defined  by  equals 

8 

DVOVF 

00,2355 

normally  defined 

70 

DV/5C 

7553 

NORMALLY  defined 

56 

DVSIGN 

0122 

defined  by  equals 

8 

DVXSC 

7372 

NORMALhY  defined 

52 

dwnrptbb 

4062 

normally  defined 

16 

EBANk 

0003 

DEFINED  BY  EQUALS 

5 

EDOP 

0023 

DEFINED  BY  equals 

5 

EDOPCHK 

10,3236 

normally  defined 

241 

EDOPLOOP 

10,3242 

normally  defined 

242 

EIGHT 

7643 

DEFINED  BY  EQuALS  BUT  NEvER  REFERRED  TO 

58 

EJl 

61,2542 

NORMALLY  DEFINED 

116 

EJ2 

01,2552 

NORMALLY  defined 

116 

EJSCAn 

01,2475 

normally  defined 

115 

ELEVEN 

7647 

NORMALLY  defined 

58 

ELRCODE 

01,3241 

NORMALLY  defined 

132 

EMSD 

0055 

defined  by  EQUALS  BUT  NEVER  REFERRED  TO 

5 

END2DEC 

04,3156 

NORMALLY  defined 

178 

endall 

04,2150 

normally  defined 

142 

ENDCYL 

10,3215 

NORMALLY  DEFINED 

241 

ENDCYR 

10,31x4 

NORMALLY  defined 

241 

ENDDox 

7163 

NORMALLY  defined 

46 

enddpdec 

04,2700 

NORMALLY  defined 

164 

ENDDPUSH 

6553 

NORMALLY  defined 

34 
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definition 

health  of  definition 

PAGE 

endedop 

10.3271 

normally  defined 

242 

ENDEXECF 

A251 

DEFINED  BY  EQUALS 

117 

endexecs 

01.2557 

DEFINED  BY  EOyALS 

116 

ENDFjND 

A210 

NORMALLY  defined 

108 

ENOIBNKF 

A131 

DEFINED  BY  EOyALS 

106 

ENDIDLE 

4407 

NORMALLY  defined 

188 

ENOiNST 

4417 

NORMALLY  defined 

188 

endintff 

4063 

defined  by  Equals 

16 

endintsI 

01.2220 

defined  by  EQyALS 

104 

ENDJOBl 

0I.2A65 

NORMALLY  DEFINED 

115 

ENDMAXDV 

00.2546 

NORMALLY  defined 

76 

ENOMoNDO 

05.3207 

NORMALLY  DEFINED 

176 

endnmtst 

04.2134 

NORMALLY  DEFINED 

142 

ENDNuM 

04.2144 

NORMALLY  defined 

142 

ENDNVBsY 

04.3475 

NORMALLY  DEFINED 

205 

ENDOFJOB 

4205 

NORMALLY  defined 

108 

ENDpASTE 

4354 

normally  defined 

176 

ENdPRCHG 

01.2363 

NORMALLY  defined 

111 

ENDRQOAT 

05.2273 

normally  defined 

154 

ENDRQWT 

05.3343 

NORMALLY  defined 

183 

endrtout 

05.2535 

defined  by  equals 

l6l 

ENDHijtiN 

05.3077 

DEFINED  BY  EQyALS 

170 

endscale 

04.2734 

NORMALLY  DEFINED 

171 

ENDSPOCT 

04.3252 

NORMALLY  defined 

181 

EnDTAFF 

4347 

defined  by  Equals 

128 

ENdTASK 

4267 

normally  defined 

lie 

endtpush 

6555 

normally  defined 

34 

EnDTSLC 

00.2172 

normally  DEFImED 

65 

ENDVBFAN 

05.2175 

NORMALLY  defined 

152 

ENOVLOAO 

6514 

NORMALLY  defined 

33 

ENDVPUSh 

6543 

NORMALLY  DEFINED 

34 

ENDVXV 

6753 

normally  defined 

AO 

ENDWAITF 

4333 

DEFINED  BY  EQUALS 

123 

ENDWAITS 

01.2677 

DEFINED  BY  EQUALS 

122 

ENjEr 

05.2003 

NORMALLY  defined 

149 

ENTERJMP 

04.2051 

NORMALLY  defined 

141 

ENTEXIT 

0122 

DEFINED  BY  EQuALS 

149 

ENTpASO 

05.2031 

normally  defined 

149 

ENTReT 

0122 

defined  by  equals 

8 

ENTSET 

05.3363 

normally  defined 

187 

ERCNT 

0103 

defined  BY  EQUALS 

7 

ERCOM 

04.2373 

NORMALLY  defined 

U6 

ErCon 

04.2405 

normally  defined 

146 

ercount 

1045 

NORMALLY  defined 

12 

ERMINUS 

04.2365 

NORMALLY  defined 

I45 

ERPLus 

04.2370 

normally  defined 

145 

error 

04.2343 

NORMALLY  defined 

145 

ERRORS 

477O 

NORMALLY  defined 

211 

ESCApE2 

0123 

defined  BY  equals 

8 
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SYMBOL 

definition 

health  of  definition 

page 

ESCAPE 

0122 

DEFINED  BY  EQUALS 

8 

EVAC*2k 

6707 

NORMALLY  defined 

38 

EXECBAnK 

A214 

NORMALLY  defined 

108 

exectemi 

0626 

normally  defined 

9 

EXECTEM2 

0627 

NORMALLY  defined 

9 

EXIT 

6730 

NORMALLY  defined 

39 

EXITEM 

0100 

DEFINED  SY  equals 

7 

EXTVBACT 

O7O5 

NORMALLY  defined 

10 

FAiLrEg 

0721 

normally  defined 

11 

FALTOF 

A5l6 

NORMALLY  defined 

201 

FALtON 

4512 

NORMALLY  defined 

201 

fbank 

0004 

defined  by  equals 

5 

fbankmsk 

6232 

DEFINED  BY  equals 

24 

FINALDV 

00*2547 

NORMALLY  defined 

77 

FINDVAC2 

01*2220 

normally  defined 

109 

findvac 

4142 

NORMALLY  defined 

107 

FIVE 

7225 

NORMALLY  defined 

47 

FIXCLPA5 

04*2262 

NORMALLY  defined 

144 

FIXEDADR 

6062 

NORMALLY  defined 

20 

FiXLOC 

0104 

NORMALLY  defined 

7 

FIXRAN6E 

04*2572 

NORMALLY  defined 

162 

FIXROOt 

00*3365 

normally  defined 

91 

FLASHOFF 

4547 

NORMALLY  defined 

202 

FLAsHON 

4543 

NORMALLY  defined 

202 

FOUR 

7644 

defined  BY  equals 

58 

FOURTEEN 

00*3063 

NORMALLY  defined 

85 

FrEDSPOO 

04*3503 

normally  defined 

207 

FReEDSP 

4650 

normally  defined 

206 

FREErEt 

0130 

defined  By'EQuALS 

8 

FREEWAjT 

04*3476 

NORMALLY  DEFINED 

207 

FULLDSPl 

05,3452 

normally  defined 

208 

fullosp 

05*3451 

NORMALLY  DEFINED 

208 

GBIA3X 

0741 

NORMALLY  DEFINED 

11 

genodv 

00*2512 

NORMALLY  defined 

75 

GENSCL 

00*2325 

NORMALLY  defined 

69 

QENSCr 

00*2257 

normally  defined 

68 

GcNSHFTZ 

00*2204 

NORMALLY  defined 

66 

gInshift 

00*2174 

normally  defined 

66 

GETINREL 

04*2205 

NORMALLY  defined 

143 

gobb 

4054 

normally  defined 

16 

GODSPALM 

05*2324 

NORMALLY  DEFINED 

155 

GOPROQ 

01*2721 

NORMALLY  defined 

124 

GOQ 

05*2712 

NORMALLY  defined 

167 
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SYMBOL 

definition 

health  oF  definition 

pAGE 

GOTO 

6650 

NORMALLY  defined 

37 

GRABDsP 

grablock 

A5S3 

NOrMALI-Y  defined 

204 

0677 

normally  defined 

10 

GRABUSYl 

Oa  «3a32 

NORMALLY  DEFINED 

204 

GRABuSY 

4564 

normally  defined 

204 

grabusyb 

04i2000 

NORMALLY  DEFINED 

140 

GRABWAIT 

4566 

NORMALLY  defined 

204 

GSHIPT 

7536 

normally  defined 

55 

GT5FIN 

06.2045 

NORMALLY  DEFINED 

I94 

gtsfinlc 

05,3042 

NORMALLY  defined 

169 

GTSpOUT 

06,2037 

NORMALLY  defined 

194 

GTSPOUTt 

05,2511 

NORMALLY  DEFINED 

160 

GYROCjR 

0047 

DEFINED  BY  EOyALs  ByT  NEVER  REFERRED  jO 

5 

HALF 

7631 

defined  by  equals 

5fi 

HIlO 

01,3311 

normally  defined 

133 

HI5 

4479 

NORMALLY  defined 

201 

HIGH9 

6231 

NORMALLY  DEFINED 

24 

IDADITEM 

0134 

NORMALLY  defined 

8 

IDAD2TEM 

0135 

normally  defined 

8 

IDAD3TeM 

0136 

NORMALLY  defined 

8 

IDADDTAB 

06,2332 

normally  defined 

198 

IDADDTEM 

0126 

defined  by  equals  but  never  referred  to 

8 

lERASTST 

6060 

normally  defined 

20 

InCR 

01,2040 

normally  defined 

99 

inderase 

6133 

NORMALLY  defined 

21 

INOEX2 

6111 

normally  defined 

21 

index 

6073 

normally  defined 

21 

INDEXLOC 

0114 

DEFINED  BY  EQUALS 

7 

INDJyMp 
1 NOWORK 

6235 

normally  defined 

25 

6131 

NORMALLY  DEFINED 

21 

IN-OUT  1 

10,2412 

normally  defined 

232 

inlink 

0045 

DEFINED  BY  EQuALS 

5 

iNREL 

0123 

defined  by  equals 

8 

INRELTAB 

04,2211 

NORMALLY  defined 

143 

INjeiS* 

0100 

NORMALLY  defined 

7 

iNTBiTlS 

INTMCTBS 

0101 

NORMALLY  DEFINED 

7 

05,2100 

NORMALLY  defined 

150 

INtPREt 

6000 

NORMALLY  defined 

17 

iNTfiSM 

5011 

NORMALLY  defined 

17 

-OCHK 

4754 

normally  defined 

211 

-IChK 

4762 

NORMALLY  DEFINED 

211 

-1/2+2 

00,2410 

NORMALLY  defined 

^2 
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definition 

health  of  definition 

PAGE 

-CCSpR 

01*2507 

normally  defined 

115 

-enderas 

6234 

NORMALLY  defined 

24 

-ENDVAC 

6171 

NORMALLY  defined 

23 

-OCTIO 

6142 

NORMALLY  defined 

22 

-ON 

04,2313 

normally  defined 

144 

-UP 

00*2542 

normally  defined 

76 

JOBSUEEP 

4164 

NORMALLY  defined 

108 

JOBSLPl 

01,2375 

NORMALLY  defined 

112 

J0BSLP2 

01*2404 

normally  defined 

112 

JOBWAKeE 

01*2406 

NORMALLY  defined 

113 

J0BWAKE3 

01*2420 

normally  defined 

113 

JOBWAKEA 

01*2412 

NORMALLY  defined 

113 

JOBWAKE 

4170 

NORMALLY  DEFINED 

108 

KEEPl 

1034 

normally  defined 

12 

KEEP2 

1035 

normally  defined 

12 

KEEP3 

1036 

NORMALLY  DEFINED 

12 

KEEP4 

1037 

normally  defined 

12 

KEEPS 

1040 

NORMALLY  defined 

1? 

KEEP6 

1041 

NORMALLY  DEFINED 

12 

KEEP? 

1042 

NORMALLY  DEFINED 

12 

KEYCoM 

01*3162 

normally  defined 

131 

keyrptbb 

4061 

NORMALLY  DEFINED 

16 

keyrupti 

01,3153 

NORMALLY  DEFINED 

131 

KEYRuPjZ 

01,3175 

NORMALLY  DEFINED 

131 

KEYTEMPl 

0624 

DEFINED  BY  EQUALS 

9 

KEYTEMP2 

0636 

defined  by  equals 

9 

KILLMON 

05,3153 

normally  defined 

175 

KjLMONON 

4400 

NORMALLY  defined 

188 

L, 

0001 

defined  by  Equals 

5 

landmark 

0733 

NORMALLY  defined 

11 

LArGEE 

00*3023 

normally  defined 

84 

LAReES 

00,3005 

NORMALLY  defined 

84 

LARGE 

00*2775 

normally  defined 

83 

UASInEX 

00*3543 

normally  defined 

95 

LBUF2 

00*2434 

NORMALLY  defined 

72 

LOANzIG 

00*3625 

normally  defined 

96 

LEFT5 

4456 

NORMALLY  defined 

200 

LEFT7C0M 

04*3035 

NORMALLY  DEFINED 

172 

left 

00*2321 

normally  defined 

69 

left- 

00*2316 

NORMALLY  defined 

69 

legaltst 

04*244^ 

NORMALLY  DEFINED 

147 

275690 


Symbol 

LEMONM 

LESCHK 

Lo^OLVl 

LOADLV 

LOADstAT 

LOC 

LOCCTR 

lodmixnn 

LODNLV 

lodnnloc 

loonntab 

LODSAMPT 

LOWIO 

LOWll 

L0W2 

LOWS 

LOWA 

LOWS 

L0W6 

L0W7 

L0W7+2K 

LOWS 

L0W9 

lowverb 

LRUPT 

LSTl 

LST2 

LSTZCADR 

LST2C0N 

LSTEMPTY 

LSTFuLL 

LSTPTR 

LTHVACA 

LV 

LVBUf 

LvOSRUPT 

LVSOUARE 

LVWTLIST 

LXA 

LXC 


MAKECADr 

MATiNC 

MAXDV 

maxdvsw 

MaXTeST 

MDI 
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definition 

health  of  definition 

page 

0056 

defined  by  equals  but  never  REFERRED  Tq 

5 

01,3047 

normally  defined 

127 

OStZOOZ 

normally  defined 

149 

05,2663 

NORMALLY  DEFINED 

167 

0654 

normally  DEFINED 

10 

0150 

NORMALLY  defined 

9 

0635 

NORMALLY  DEFINED 

9 

06,2016 

normally  defined 

193 

06,2034 

NORMALLY  DEFINED 

193 

05,2075 

NORMALLY  defined 

150 

06,2000 

NORMALLY  DEFINED 

193 

4526 

NORMALLY  DEFINED 

202 

6425 

normally  defined 

30 

4503 

normally  defined 

201 

6165 

defined  by  equals 

58 

7652 

DEFINED  BY  EQUALS 

58 

01,2131 

normally  defined 

lol 

4473 

normally  defined 

201 

05,3401 

normally  defined 

I87 

6027 

normally  defined 

18 

6230 

NORMALLY  defined 

24 

4504 

normally  defined 

201 

01,2503 

normally  defined 

115 

05,2030 

NORMALLY  defined 

149 

0011 

defined  by  equals  but  never  referred  to 

5 

E3*1400 

normally  defined 

13 

E3,1405 

normally  defined 

13 

05.2132 

NORMALLY  defined 

151 

05.2131 

normally  defined 

151 

04.3512 

NORMALLY  defined 

207 

04,3514 

normally  defined 

207 

0130 

defined  by  EQUALS 

8 

01,3051 

NORMALLY  DEFINED 

127 

0044 

defined  by  EQmALs 

6 

7662 

NORMALLY  defined 

59 

4325 

defined  By  equals 

130 

0042 

defined  by  equals 

6 

4262 

NORMALLY  defined 

118 

01,2010 

normally  defined 

98 

01,2014 

NORMALLY  defined 

98 

4112 

normally  DEFImED 

106 

0124 

NORMALLY  DEFINED 

8 

00,2564 

NORMALLY  defined 

78 

0124 

defined  by  Equals 

8 

00,2507 

normally  defined 

74 

4510 

normally  defined 

201 
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SYMBOL 

definition 

health  of  definition 

page 

measmode 

lOlA 

normally  defined 

u 

MEASQ 

0726 

NORMALLY  DEFINED 

11 

MJD5 

447A 

NORMALLY  DEFINED 

201 

M1D6 

05t3402 

normally  defined 

187 

MIDSIX 

4355 

normally  defined 

176 

MI  SC JUMP 

6275 

normally  defined 

26 

MIXAD 

05.2235 

normally  defined 

153 

mixbr 

0124 

defined  by  equals 

8 

MIXCON 

06.2036 

normally  defined 

193 

MIXNNl 

03.2211 

NORMALLY  defined 

153 

MiXNN2 

05.2223 

NORMALLY  DEFINED 

153 

MIXNOUN 

05.2176 

NORMALLY  DEFINED 

153 

mixtemp 

0111 

defined  by  equals 

7 

MMCHANG 

05.3267 

NORMALLY  DEFINED 

181 

MNKEyIN 

0015 

DEFINED  BY  EQuALS 

14 

MODE 

0147 

NORMALLY  DEFINED 

9 

MODREG 

0651 

NORMALLY  defined 

10 

MODROutB 

04.3255 

DEFINED  BY  EayALS 

182 

MONBACX 

05.3211 

NORMALLY  DEFINED 

176 

MONBUSY 

05.3212 

NORMALLY  defined 

176 

mondel 

05.3157 

normally  defined 

175 

MONOO 

05.3160 

normally  defined 

175 

moniti 

05.3101 

NORMALLY  DEFINED 

174 

monitor 

05,3077 

NORMALLY  defined 

174 

monmask 

05,3210 

NORMALLY  defined 

176 

monreq 

05,3134 

NORMALLY  defined 

175 

MONSAVEl 

0661 

normally  defined 

10 

MONSAVe 

0660 

normally  defined 

10 

MORNUM 

04.2173 

normally  defined 

142 

MP1  + * 

07.3017 

NORMALLY  defined 

224 

MP1+- 

07.3024 

NORMALLY  defined 

224 

MP1-  + 

07,3030 

normally  defined 

224 

MPl  — 

07.3034 

NORMALLY  DEFINED 

224 

MPz*  + 

07.3O43 

normally  defined 

225 

Mp2*- 

07.3050 

normally  defined 

225 

MP2-  + 

07,3054 

NORMALLY  defined 

225 

MP2— 

07.3060 

NORMALLY  defined 

225 

MP3  + + 

07,3067 

NORMALLY  DEFINED 

225 

MP3  + - 

07*3074 

NORMALLY  DEFINED 

225 

MP3-  + 

07.3101 

NORMALLY  defined 

225 

MP3— 

07.3106 

NORMALLY  defined 

225 

MP^** 

O7.3II3 

NORMALLY  defined 

226 

MpA*- 

07.3120 

normally  defined 

226 

MPA-  + 

07,3124 

NORMALLY  defined 

226 

MPA— 

07,3131 

normally  defined 

226 

MP5»* 

07.3136 

NORMALLY  defined 

226 

MP5*« 

O7.3I44 

NORMALLY  defined 

226 

Mp5-  + 

07.3150 

normally  defined 

226 

MP5— 

07.3155 

normally  defined 

226 

2756g0 


YUi  SYSTEM  FOR  BLK2J  REVISION  0 oF  PROGRAM  REtRED4<»  BY  NASA  2021100 


JUL  91  I965 


PAGE  257 


SYMBOL 

definition 

health  of  definition 

PAgE 

MpAC 

0140 

normally  defined 

9 

MPAC* 

00,2403 

NORMALLY  DEFINED 

72 

MPAC- 

00,2377 

NORMALLY  defined 

70 

MPAC5HR 

00,2014 

normally  defined 

61 

MPACSRND 

00,2031 

normally  defined 

61 

MPACvBUF 

7475 

normally  defined 

54 

MPtEMP 

0121 

NORMALLY  defined 

8 

mskchk 

07,2051 

normally  defined 

213 

MXv 

7300 

NORMALLY  defined 

49 

NAVKEYlN 

0016 

defined  by  EQUALS 

14 

NDI 

4507 

normali-y  defined 

201 

NOCMPTST 

05,2417 

NORMALLY  DEFINED 

159 

NDX  + 0 

1025 

normally  defined 

12 

NDX+MAX 

1026 

NORMALLY  defined 

12 

NOXAUG 

10,3033 

NORMALLY  DEFINED 

238 

ndxbzmf 

10,2740 

normally  defined 

237 

NDXChK 

07,2371 

NORMALLY  DEFINED 

218 

NDXDCA 

10,2744 

NORMALLY  defined 

237 

ndxoim 

10,3042 

NORMALhY  defined 

239 

NDXDV 

10,2772 

NORMALLY  defined 

238 

ndxinout 

10,3051 

NORMALLY  DEFINED 

239 

NDXKEEpl 

1027 

normally  defined 

12 

NDXKEEP2 

1030 

NORMALLY  defined 

12 

NDXKEEP3 

1031 

normally  defined 

12 

NDXMsu 

10,3013 

NORMALLY  defined 

238 

NDXQXCh 

10,3022 

normally  defined 

238 

NDXSELFl 

1032 

NORMALLY  defined 

12 

NDXsELF2 

1033 

NORMALLY  defined 

12 

NegO 

7654 

NORMALLY  defined 

58 

NEG12 

00,2273 

NORMALLY  defined 

68 

nEGISO 

04,2736 

normally  defined 

171 

NEGl 

7655 

defined  by  equals 

58 

NEGl/2 

76^7 

NORMALLY  defined 

58 

NEG2 

7656 

normally  defined 

58 

neqa 

6045 

NORMALLY  DEFINED 

19 

NEGs 

05t2077 

NORMALLY  defined 

150 

NEG 

6726 

normally  defined 

39 

NEG.2 

04,2750 

NORMALLY  DEFINED 

171 

NEGMAX 

7630 

DEFINED  BY  EOuALS 

58 

NEGonE 

7655 

normally  defined 

58 

NegOPT 

04,2555 

NORMALLY  defined 

161 

NEGSGN 

04*2254 

NORMALLY  defined 

144 

NEtZERO 

6054 

normally  defined 

20 

NeWJOB 

0067 

NORMALLY  defined 

6 

NEWLOC 

0633 

normally  defined 

9 

NEWmqDE 

6013 

normally  defined 

18 

NEWOPS 

6023 

NORMALLY  defined 

18 
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SYMBOL 

DEFINITION 

health  of  definition 

PAGE 

NEWPRIO 

0632 

NORMALLY  defined 

9 

nextcore 

01,2310 

NORMALLY  defined 

110 

NINE 

7651 

normally  defined 

58 

NNaDTAB 

06,2052 

normally  defined 

196 

NNAOtEM 

0132 

NORMALLY  defined 

8 

nntyptab 

06,2152 

NORMALLY  DEFINED 

195 

nntyptem 

0133 

normally  defined 

8 

NO. cores 

01,2250 

normally  defined 

109 

NO.WpS 

6166 

NORMALLY  defined 

22 

normtest 

00,3626 

normally  defined 

92 

N0TBIT12 

06,2606 

normally  defined 

166 

NOUN 

06,2250 

NORMALLY  defined 

166 

NOuNADD 

0131 

defined  by  EQuALs 

8 

NOUNCADR 

0657 

normally  defined 

10 

nounreg 

0662 

NORMALLY  DEFINED 

10 

nountem 

0106 

DEFINED  BY  EQUALS 

7 

NOUT 

0656 

NORMALLY  DEFINED 

10 

NOUTCON 

7667 

DEFINED  BY  EQyALS 

58 

N0VAC2 

01,2261 

normally  defined 

109 

N0VAC3 

01,2266 

NORMALLY  defined 

109 

NOVAC 

6131 

normally  defined 

107 

NUCHANgE 

6261 

NORMALLY  DEFINED 

117 

NuDIRECT 

6235 

normally  defined 

117 

NUM 

06,2062 

normally  defined 

161 

NVBNKTEM 

0701 

NORMALLY  defined 

10 

NVCOM 

06,2260 

normally  defined 

163 

NVOTeM 

0700 

NORMALLY  DEFINED 

10 

NVSBBBnK 

6371 

normally  defined 

186 

NVSBENDl. 

06,3265 

normally  defined 

181 

NVSBWAIT 

6601 

NORMALLY  defined 

205 

nvsbwti 

6606 

NORMALLY  defined 

205 

nvsubI 

05,3366 

NORMALLY  defined 

187 

NVSUB 

6356 

normally  defined 

186 

NVSUB8 

05,2000 

normally  defined 

169 

NV5UBC0M 

6365 

NORMALLY  DEFINED 

l86 

nvsuBEnd 

6376 

NORMALLY  defined 

187 

NVSUBMoN 

6372 

NORMALLY  defined 

187 

NvSUBSyl 

06,3656 

normally  defined 

205 

NV5UBSYB 

06,2001 

NORMALLY  DEFINED 

160 

nvsubusy 

6576 

NORMALLY  DEFINED 

205 

NVtEMP 

0107 

defined  BY  EQuALs 

7 

OCT i«00 

6505 

normally  defined 

201 

qCT176 

00,2107 

normally  defined 

63 

0CT23 

6227 

NORMALLY  defined 

26 

OCtAOOOI 

6062 

NORMALLY  defined 

19 

0CT50001 

01,2657 

normally  defined 

121 
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SYMBOL 

DEFiNiTjON 

health  of  DEFiNiTjON 

page 

octback 

05,3250 

NORMALLY  defined 

179 

OLDERR 

1021 

NORMALLY  DEFINED 

12 

ONE 

7646 

defined  by  equals 

5R 

0PDEGIn2 

04»2771 

normally  DEFInEO 

171 

OPDEGOUT 

04,2541 

NORMALLY  defined 

161 

OPJuMP2 

6167 

normally  defined 

23 

0PJUMP3 

6217 

normally  defined 

24 

OPJUMP 

6032 

NORMALLY  defined 

18 

OpTOEGiN 

04,2764 

normally  defined 

171 

OPTX 

0036 

defined  by  EQUALS 

5 

optxcmd 

0054 

defined  by  equals  But 

NEVER 

REFERRED 

TO 

5 

OPTY 

0035 

defined  by  equals 

5 

optycmd 

0053 

defined  By  equals  but 

NEVER 

REFERRED 

TO 

5 

OUTO 

0010 

defined  by  equals 

14 

OUTLINK 

0057 

defined  By  Equals  but 

never 

REFERRED 

TO 

6 

OVERFLOW 

7006 

NORMALLY  defined 

41 

OVFIND 

0105 

NORMALLY  DEFINED 

7 

PASTEVB 

4347 

normally  defined 

176 

PBIASX 

0764 

NORMALLY  defined 

11 

PBIAsY 

0766 

normally  defined 

11 

PBlASZ 

0770 

NORMALLY  DEFINEO 

11 

POOL 

6526 

NORMALLY  defined 

34 

PDVL 

6562 

normally  DEFINEO 

35 

PIPASCpX 

0765 

NORMALLY  defined 

11 

PIPAsCFY 

0767 

normally  defined 

11 

PIPASCFZ 

0771 

NORMALLY  DEFINED 

11 

PIPAX 

0037 

defined  by  equals 

5 

PIPAY 

0040 

defined  by  equALs  But 

NEVER 

REFERRED 

TO 

5 

PIPAZ 

0041 

defined  by  equals  but 

never 

referred 

TO 

5 

POLljH 

0103 

normally  defined 

7 

POLY2 

7215 

NORMALLY  DEFINED 

47 

POLy 

7173 

NORMALLY  DEFINED 

47 

POLYCNj 

0124 

defined  by  Equals 

R 

polyloop 

7212 

NORMALLY  defined 

47 

POLYRET 

0125 

DEFINED  BY  EQUALS 

R 

POSl/2 

7631 

defined  BY  Equals 

58 

POSGN 

04,2267 

normally  defined 

144 

POSMAx 

7626 

normally  defined 

58 

POSTjUmP 

PREDOT 

4102 

7132 

normally  defined 
NORMALLY  defined 

105 

46 

PREGBsY 

4561 

normally  defined 

204 

prenvbsy 

4573 

normally  defined 

205 

PRESINE 

00,3440 

normally  defined 

93 

PrESTOrE 

6420 

normally  defined 

30 

PRIOcH2 

01,2454 

normally  DeFINeD 

114 
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symboi 

definition 

health  of  definition 

page 

PRIoCHNG 

9176 

normally  defined 

108 

PRIORITY 

0193 

NORMALLY  DEFINED 

9 

PUSH 

00*3167 

normali-y  defined 

88 

PUSHLOC 

OISZ 

normally  defined 

9 

PUSHuP 

6135 

NORMALLY  defined 

22 

putadd 

05,Z307 

NORMALLY  DEFINED 

159 

PUTCOMZ 

05*3090 

NORMALLY  DEFINED 

169 

PUTCOM 

05*Z76Z 

normally  defined 

168 

PUTOCSpZ 

05*3069 

NORMALLY  defined 

170 

putdecsf 

05,3051 

normally  defined 

169 

putdpcom 

05,3019 

NORMALLY  defined 

169 

PUTINLST 

0a*3A50 

NORMALLY  defined 

209 

PUTNORM 

05,3023 

NORMALLY  defined 

169 

putsfnor 

05*3063 

NORMALLY  defined 

170 

PUTXY 

05*260Z 

NORMALLY  defined 

l65 

PUTXYZ 

05*2550 

NORMALLY  defined 

165 

Q 

0002 

defined  by  EQUALS 

5 

ONMBR 

07*2550 

NORMALLY  DEFINED 

220 

QPRET 

0052 

DEFINED  BY  EQUALS 

6 

qrupt 

0012 

DEFINED  BY  EOyALS 

5 

quarter 

7632 

defined  by  equals 

58 

QXCHCONl 

07*2555 

NORMALLY  defined 

220 

QXChCONZ 

07*2556 

NORMALLY  DEFINED 

221 

RlDl 

9999 

normally  defined 

ZOO 

RZDl 

9995 

NORMALLY  defined 

200 

R3DI 

9996 

NORMALLY  DEFINED 

200 

RAnDCHK 

10*2935 

normally  defined 

233 

RANDOV 

10*2960 

NORMALLY  DEFINED 

233 

recah 

09*3906 

NORMALLY  defined 

189 

RECAL2 

09*3917 

NORMALLY  DEFINED 

190 

RECAL3 

09*3929 

NORMALLY  DEFINED 

190 

rECAlTST 

09*3900 

normally  defined 

189 

Recup 

6153 

NORMALLY  defined 

22 

RELDSPl 

9633 

normally  defined 

206 

relospz 

9623 

NORMALLY  DEFINED 

206 

RELOSP 

9610 

normally  defined 

206 

RELDsPON 

9522 

NORMALLY  defined 

202 

RELRET 

0130 

DEFINED  BY  EQUALS 

8 

RELTABil 

9396 

NORMALLY  defined 

128 

rELTAB 

9333 

normally  defined 

128 

ReLV^ORK 

6210 

NORMALLY  defined 

23 

REQADD 

05  2055 

normally  defined 

150 

275690 


SYMBOL 

REOCOM 

reqdatx 

REQOATV 

REODATZ 

REQEXl 

REQEXLOC 

REQMM 

rEqret 

REQUeSTC 

RESTORSR 

RESUME 

REVCNT 

RIGHjS 

RIGHT 

RIGHT- 

RIGHTR 

RNRAD 

roll 

RORChK 

ROROV 

round 

ROUNdSUB 

RTB 

RTB/8HIZ 

RUPTAGN 

RUTMXTAB 

RUTMXTEM 

RVO 

RXORChK 

RXORUV 


/AGREE 

/BuF* 

/BUp- 

/MPAC* 

/MPAC- 

/NORM2 

/noRm 


S13BITS 

51 

52 

SSBItS 

57BITS 
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definition 

health  of  definition 

page 

05f2257 

normally 

defined 

159 

05«2252 

NORMALLY 

defined 

159 

05*2259 

NORMALLY 

defined 

159 

05*2Z56 

normally 

DEFINED 

159 

05*3321 

NORMALLY 

DEFINED 

182 

05*2166 

NORMALLY 

defined 

151 

05*3302 

NORMALLY 

defined 

182 

0653 

normally 

defined 

10 

05*3325 

NORMALLY 

defined 

182 

01,3270 

normally 

defined 

133 

9325 

NORMALLY 

DEFINED 

123 

6162 

NORMALLY 

defined 

22 

9997 

NORMALLY 

defined 

200 

00*2216 

NORMALLY 

DEFINED 

67 

00*2312 

NORMALLY 

defined 

69 

00*2012 

normally 

defined 

60 

0096 

DEFINED  BY  EQUALS  BUT  NEVER  REFERRED  TO 

5 

0730 

NORMALLY 

DEFINED 

11 

10*2592 

NORMALLY 

defined 

239 

10*2573 

NORMALLY 

defined 

235 

00*3111 

normally 

defined 

87 

7115 

NORMALLY 

defined 

95 

01*2070 

NORMALLY 

defined 

100 

01*2067 

normally 

defined 

100 

0636 

normally 

defined 

9 

06*2922 

NORMALLY 

DEFINED 

199 

0137 

normally 

defined 

S 

00*3219 

normally 

defined 

88 

10*2669 

NORMALLY 

DEFINED 

236 

10,2715 

normally 

defined 

237 

00*2725 

NORMALLY 

defined 

82 

00*2637 

NORMALLY 

defined 

80 

00*2633 

NORMALLY 

DEFINED 

79 

00*2719 

normally 

defined 

81 

00*2710 

NORMALLY 

defined 

81 

00*2652 

NORMALLY 

DEFINED 

80 

00*2657 

normally 

defined 

80 

9723 

NORMALLY 

defined 

210 

0050 

defined  by  equals  but  never  referred  TO 

6 

0051 

defined  by  equals  but  never  referred  to 

6 

9721 

NORMALLY 

defined 

210 

9722 

NORMALLY 

defined 

210 
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SYMBOL 

definition 

health  of  definition 

Page 

S+1 

9712 

NORMALLY  defined 

210 

5*2 

4713 

NORMALLY  DEFINED 

210 

S + 3 

4714 

NORMALLY  DEFINED 

210 

S + 9 

4715 

NORMALLY  defined 

210 

S*5 

47l6 

NORMALLY  defined 

210 

S*b 

4717 

NORMALLY  defined 

210 

5*7 

4720 

NORMALLY  DEFINED 

210 

S*MAX 

4725 

NORMALLY  defined 

210 

5*ZER0 

4711 

normally  defined 

210 

samptime 

0754 

normally  defined 

11 

SBITIO 

47O3 

NORMALLY  defined 

210 

SBiTll 

4704 

NORMALLY  DEFINED 

210 

SB1TI2 

4705 

NORMALLY  defined 

210 

SBlTia 

47O6 

normally  DEFINED 

210 

SBIjIA 

4707 

NORMALLY  defined 

210 

SBiTlS 

4710 

NORMALLY  DEFINED 

210 

SBin 

4672 

NORMALLY  defined 

210 

SBIt2 

4673 

normally  defined 

210 

SBIT3 

4674 

NORMALLY  DEFINED 

210 

SBIT4» 

4675 

NORMALLY  DEFINED 

210 

SBIjS 

4676 

NORMALLY  defined 

210 

SB1T6 

4677 

NORMALLY  defined 

210 

SBIT7 

47OO 

NORMALLY  defined 

210 

5BIT8 

4701 

NORMALLY  defined 

210 

SB1T9 

4702 

NORMALLY  defined 

210 

SCOUNT 

1046 

NORMALLY  defined 

12 

SCOujEND 

04(2623 

NORMALLY  DEFInED 

162 

SELpl 

07(2411 

NORMALLY  defined 

218 

SELFz 

07*2417 

NORMALLY  defined 

218 

SELF3 

07(2473 

normally  defined 

219 

SeLFBANK 

4250 

NORMALLY  defined 

117 

SELFREt 

1043 

normally  defined 

12 

SETAUG 

04(2565 

NORMALLY  DEFINED 

162 

SETEBANK 

4440 

NORMALLY  defined 

200 

sEtLoC 

01(2275 

NORMALLY  defined 

110 

setnadd 

4436 

NORMALLY  defined 

200 

SETNCADR 

4430 

normally  defined 

200 

SEjOVFZ 

7130 

NORMALLY  defined 

45 

SeTOVf 

7060 

NORMALLY  DEFINED 

43 

SETPD 

7530 

normally  defined 

55 

setround 

00(2252 

NORMALLY  defined 

67 

5ETVAC 

05*3336 

NORMALLY  defined 

182 

seven 

7652 

normally  defined 

58 

SeV'eNS 

4731 

NORMALLY  defined 

210 

SFAIL 

1044 

normally  defined 

12 

SFCOM 

06(2043 

normally  defined 

194 

SFCONUM 

0g(2734 

NORMALLY  defined 

168 

SFINTAB 

06(2252 

normally  defined 

197 

SFINTArR 

05(3067 

normally  defined 

170 

SFOutAB 

06(2302 

normally  defined 

197 
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SYMBOL 

DEFlNIxlON 

healtH  of  definition 

page 

sfoutabr 

05»25Z5 

normally  defined 

161 

SPREjl 

05*2733 

normally  defined 

167 

SPRET 

05*2751 

normally  defined 

168 

SPRUTMIX 

05*2721 

NORMALLY  defined 

I67 

sprutnor 

05*2713 

NORMALLY  defined 

167 

SFTEMPl 

0107 

defined  by  equals 

7 

SFTEMP2 

0110 

defined  by  equals 

7 

SQNCOM 

04*2302 

normally  defined 

144 

sgnopp 

0107 

DEFINED  BY  EQUAL5 

7 

SGNON 

0106 

defined  by  equals 

7 

sgntab 

04*2323 

NORMALhY  defined 

144 

SGNTOl 

04*2740 

NORMALLY  DEFINED 

171 

SGNTSTl 

04*2336 

NORMALLY  defined 

145 

SHOLtS 

05*3456 

NORMALLY  DEFINED 

209 

shortmp 

7257 

NORMALLY  defined 

48 

SHORTT 

00*2000 

NORMALLY  defined 

60 

SHORjV 

00,2102 

normally  defined 

63 

ShOTIMe 

4661 

normally  defined 

206 

SIGN 

7572 

normally  defined 

57 

SIGNFIX 

04*2722 

normally  defined 

171 

SIGNRET 

0111 

DEFINED  BY  EOuALs  BUT  NEVER  REFERRED  TO 

7 

SIGNjEst 

04*2326 

NORMALhY  defined 

145 

sinblank 

04*2510 

NORMALLY  defined 

148 

SINE 

00*3442 

NORMALhY  defined 

93 

SINOUTl 

4730 

NORMALhY  defined 

210 

SIN0UT2 

4732 

NORMALLY  defined 

210 

SIN0UT3 

4734 

normally  defined 

210 

SIX 

6162 

defined  by  equals 

58 

S-IA 

4736 

normally  defined 

210 

S-15 

4735 

NORMALLY  DEFINED 

210 

S-1 

4745 

normally  defined 

211 

s-z 

4744 

normally  defined 

211 

S-3 

4743 

NORMALLY  defined 

211 

S”A 

4'^4Z 

normally  defined 

211 

5-5 

4741 

normally  defined 

211 

S-6 

4740 

normally  defined 

211 

5-7 

4737 

normally  defined 

210 

5-MAX 

4726 

normally  defined 

210 

5-ZERO 

4746 

normally  defined 

211 

SUAPI 

01*2677 

normally  defined 

124 

5LAP2 

01*2715 

NORMALLY  defined 

124 

5LEFT5 

4465 

normally  defined 

201 

SLOADZ 

6467 

normally  defined 

33 

SLOAD 

6504 

normally  defined 

33 

SLOPEHI 

00*2274 

NORMALLY  defined 

68 

SLOPELO 

00*2740 

normally  defined 

82 

5MAUL2 

00*2773 

normally  defined 

83 

small 

00*3044 

normally  defined 

85 

SMOoe 

1047 

NORMALLY  defined 

12 

2756q0 
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SYMBOL 

DEFINITION 

health  of  definition 

page 

SMODEChK 

5010 

NORMALLY  defined 

212 

SMPAC+ 

00.3322 

NORMALLY  defined 

91 

SNl 

00.3465 

normally  defined 

94 

SODD 

4724 

normally  defined 

210 

specrupt 

01.3063 

NORMALLY  defined 

128 

spectest 

01.2265 

normally  defined 

110 

SORT 

00.3125 

NORMALLY  DEFINED 

87 

sqrtabrt 

00.3321 

NORMALLY  defined 

90 

SQRTNEG 

00.3312 

normally  defined 

90 

SQRTNM2 

00.3407 

normally  defined 

92 

sortnorm 

00.3414 

normally  defined 

92 

sqrtshft 

00.3137 

NORMALLY  defined 

87 

5QRT5UB 

00.3262 

NORMALLY  defined 

90 

SR 

0021 

DEFINED  BY  EQUALS 

5 

SRCHK 

10.3221 

NORMALLY  defined 

241 

SRCNTON 

10.3234 

NORMALLY  defined 

241 

SROOV 

00.2005 

NORMALLY  DEFINED 

60 

SRGHT5 

01.3274 

NORMALLY  defined 

133 

SRLOOP 

10.3225 

normally  defined 

241 

SRTEST 

00.3370 

NORMALLY  defined 

92 

SSP 

6623 

normally  defined 

35 

STAOR 

6334 

normally  defined 

28 

STARTEB 

01.2722 

NORMALLY  defined 

124 

startsto 

6430 

normally  defined 

31 

STARTSua 

01.2723 

NORMALLY  DEFINED 

124 

STATE 

0620 

NORMALLY  defined 

9 

STOPCHK 

5005 

NORMALLY  defined 

211 

store! 

6626 

normally  defined 

35 

STORE 

6421 

normally  defined 

30 

ST0RE»1 

6413 

NORMALLY  DEFINED 

30 

STOHE*2 

6416 

NORMALLY  DEFINED 

30 

storJump 

6351 

normally  defined 

29 

strtchk 

5017 

NORMALLY  DEFINED 

212 

strtxtra 

07.2504 

NORMALLY  defined 

220 

SUBTr 

00.3614 

normally  defined 

96 

SVCT3 

4271 

NORMALLY  defined 

118 

SwBIT 

0115 

defined  By  equals 

8 

swbranch 

6702 

NORMALLY  defined 

38 

SWCALL 

4067 

NORMALLY  DEFINED 

105 

switches 

01.2135 

normally  defined 

102 

SWReTURN 

4076 

NORMALLY  defined 

105 

sw/ 

01.2135 

defined  by  equals 

IO4 

SWsGN 

04.3345 

normally  defined 

184 

SWSKjP 

01.2216 

NORMALLY  defined 

104 

SWSTORE 

01.2172 

NORMALLY  defined 

103 

SWTAB 

04.3374 

normally  defined 

185 

SWWORd 

0114 

defined  by  equals 

7 

sx* 

01.2020 

normally  defined 

98 
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SYMBOL 

definition 

health  qp  definition 

T3RPTBB 

4057 

NORMALLY 

defined 

t3RuPT2 

4275 

NORMALLY 

defined 

T3RUPT 

4272 

NORMALLY 

DEFINED 

T4RPTBB 

4060 

NORMALLY 

defined 

T4RuPT 

01|3052 

NORMALLY 

DEFINED 

T4RUPTA 

0lt3072 

NORMALLY 

DEFINED 

T5RPTBB 

4056 

NORMALLY 

defined 

T6RPtBB 

4055 

NORMALLY 

DEFINED 

TaBUNTH 

Clt3122 

normally 

defined 

TAD 

7047 

NORMALLY 

defined 

taqsub 

01i2061 

NORMALLY 

DEFINED 

TASKOVER 

4321 

NORMALLY 

DEFINED 

tCchk 

07,2003 

NORMALLY 

defined 

tcfindvc 

4501 

NORMALLY 

defined 

TCNOVAC 

4476 

NORMALLY 

DEFINED 

tcsubtr 

00,2247 

normally 

defined 

TCTSKOVR 

4500 

NORMALLY 

DEFINED 

TCWAIT 

4477 

NORMALLY 

DEFINED 

TDEC 

0722 

normally 

defined 

temi 

0125 

NORMALLY 

defined 

TEM2 

0126 

normally 

defined 

TEM3 

0127 

NORMALLY 

DEFINED 

TEM4 

0130 

NORMALLY 

defined 

TEM5 

0131 

normally 

defined 

Ten 

7650 

NORMALLY 

defined 

TEST 

01,2204 

normally 

defined 

TESTNN 

05,2037 

NORMALLY 

DEFINED 

testofuf 

0a,3053 

normally 

defined 

tEstvb 

05,2033 

NORMALLY 

defined 

TeT 

0724 

NORMALLY 

defined 

thetad 

0716 

normally 

defined 

thirteen 

00,3062 

NORMALLY 

DEFINED 

three 

6l65 

defined  by  equals 

TIMEI 

0025 

defined  I 

BY  Equals 

TIMp2 

0024 

defined  I 

3Y  equals 

times 

0026 

DEFINED  1 

By  equals 

T1ME4 

0027 

DEFINED  1 

BY  equals 

TIME? 

0030 

DEFINED  1 

BY  EQUALS 

BUT 

never 

TIME6 

0031 

DEFINED  1 

BY  EQmALs 

But 

never 

TIX 

01,2047 

NORMALLY 

defined 

TLOAD 

6473 

normally 

defined 

TMALM 

4325 

defined  by  equals 

tmfaili 

01,3266 

normally 

defined 

TMFA1L2 

01,3256 

NORMALLY 

DEFINED 

TMKEYBUF 

1024 

NORMALLY 

defined 

TPAGrEE 

7226 

normally 

defined 

TPDVL 

6613 

NORMALLY 

DEFINED 

TPLEFT7 

04,3032 

normally 

defined 

pAGE 

l6 

123 

123 

l6 

12R 

128 

16 

16 

130 

A3 

99 

123 

212 

201 

201 

67 

201 

201 

11 

8 

B 

8 

8 

8 

58 

104 

150 

173 

149 

11 

11 

85 

58 

5 

5 

5 

5 

REFERRED  TO  5 

referred  to  5 

99 

33 

133 

133 

132 

12 

48 

35 

172 
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SYMBOL 

definition 

health  of  definition 

TpSLl 

4532 

normally  defined 

TPUSH 

00i3212 

NORMALLY  defined 

TRACE! 

04,3110 

NORMALLY  defined 

TRACElS 

04,3121 

NORMALLY  defined 

TSUC2 

00,2153 

normally  defined 

TSLC 

7533 

NORMALLY  defined 

TSLCLOOP 

00,2161 

NORMALLY  DEFINED 

TSLCtEst 

00,2167 

NORMALLY  DEFINED 

TSSL 

00,2062 

NORMALLY  DEFINED 

TSSR 

00,2006 

NORMALLY  DEFINED 

tstab 

04,2355 

NORMALLY  defined 

TSTCONI 

05,3453 

NORMALLY  defined 

TSTC0N2 

05*3454 

NORMALLY  defined 

TSTC0N3 

05,3455 

normally  defined 

TSTFORdP 

05,2420 

normally  defined 

tstltsi 

05,3426 

normally  defined 

TSTLTS2 

05,3457 

NORMALLY  DEFINED 

TSTLTS3 

05*3464 

NORMALLY  defined 

TSTOrE 

6450 

normally  defined 

TSTUPLOK 

01,3247 

NORMALLY  defined 

TWO 

7645 

defined  By  eouals 

UMPaC* 

00,3103 

normally  defined 

UMPAC- 

00,3075 

NORMALLY  defined 

UNAJUMP 

6315 

NORMALLY  DEFINED 

UNIT 

00,2750 

NORMALLY  defined 

unitdv 

00,3064 

normally  defined 

UPBANK 

4214 

defined  by  equals  but  Never 

UPOATl 

05,2322 

NORMALLY  defined 

updatnn 

05*2275 

NORMALLY  DEFINED 

updatret 

0103 

DEFINED  BY  EQUALS 

UPDAxVB 

05,2315 

normally  defined 

UPLOcK 

0715 

normally  defined 

UPOK 

01,3234 

normally  defined 

UPRPTl 

01,3217 

NORMALLY  DEFINED 

UPRPTBB 

4061 

DEFINED  BY  EQUALS 

UPRUPT 

01,3205 

NORMALhY  defined 

UPTeST 

01,3303 

NORMALLY  defined 

VACl 

0265 

NORMALLY  defined 

VACIADRC 

01,3050 

NORMALLY  defined 

VACIUSE 

0264 

NORMALLY  defined 

VAC2 

0341 

NORMALLY  defined 

VAC2USE 

O34O 

NORMALLY  defined 

VAC3 

0415 

normally  defined 

VAC3U5E 

0414 

NORMALLY  defined 

VAC4 

0471 

normally  defined 

page 

202 

88 

177 

177 

65 

55 

65 

65 

62 

60 

145 

208 

208 

208 

159 

208 

209 

209 

31 

132 

58 


86 

86 

27 

83 

86 

referred  to  133 

155 

154 
7 

155 
10 

132 

132 

16 

132 

133 


9 

127 

9 

9 

9 

9 

9 

9 
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definition 

health  of  definition 

page 

va^ause 

0470 

NORMaULY  defined 

9 

VAC5 

0545 

normally  defined 

9 

VAC5USF 

0544 

NORMALLY  DEFINED 

9 

vacfound 

01«2234 

normally  defined 

109 

VAD 

6732 

normally  defined 

40 

VSfANDTR 

05.2133 

NORMALLY  DEFINED 

151 

VBPROC 

04,3266 

normally  defined 

183 

VBRELDSP 

04.3276 

NORMALLY  defined 

183 

VBRQEXEC 

O5.33U 

NORMALLY  defined 

182 

VBrqWAIT 

05.3340 

normally  defined 

183 

VBSPILd 

05.2673 

NORMALLY  defined 

167 

VBSP2LD 

05,2674 

NORMALLY  defined 

167 

VBSP3LD 

05.2675 

NORMALLY  DEFINED 

167 

VBTERM 

04.3273 

NORMALLY  defined 

183 

VBTSTLTS 

05.3414 

normally  defined 

208 

VBUF 

0106 

NORMALLY  defined 

7 

VDl 

4506 

normally  defined 

201 

VDEF 

00.3150 

NORMALLY  defined 

88 

VERB 

04.2235 

NORMALLY  defined 

143 

VERBFAN 

05.2116 

NORMALLY  DEFINED 

151 

VERBREg 

0641 

NORMALLY  defined 

10 

verbtab 

05,2136 

normally  defined 

151 

VLOAD 

6510 

NORMALLY  defined 

33 

VLOADCoD 

7630 

defined  by  equals 

58 

vload* 

6042 

DEFINEl^  BY  EQUALS 

59 

VPDVL 

6576 

NORMALLY  defined 

35 

VPROJ 

7371 

NORMALLY  defined 

52 

VRIghTZ 

00.2222 

NORMALLY  defined 

67 

vrotatex 

7364 

NORMALLY  defined 

51 

VROUND 

7116 

normally  defined 

45 

v/sci 

7547 

normally  defined 

56 

V/SC2 

00.2576 

normally  defined 

79 

v/sc 

7541 

NORMALLY  defined 

56 

V/sCDV 

00.2675 

NORMALLY  defined 

81 

VShR2 

00.2041 

NORMALLY  defined 

61 

VSHRRND 

00,2054 

normally  defined 

61 

VSQ 

00.3164 

NORMALLY  DEFINED 

88 

VSQSUB 

00.3236 

NORMALLY  DEFINED 

89 

VSSL 

00.2126 

normally  defined 

64 

VSSH 

00.2110 

NORMALLY  defined 

63 

VSTORE 

6437 

normally  defined 

31 

VSU 

6760 

normally  defined 

41 

VV/SC 

7544 

NORMALLY  defined 

56 

VVXsC 

7350 

NORMALLY  defined 

51 

VXM 

7303 

NORMALLY  defined 

49 

VXFI/MXV 

7306 

normally  defined 

50 

VXSC 

7345 

NORMALLY  DEFINED 

51 

vxv 

7423 

NORMALLY  defined 

53 
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SYMBOL 

definition 

health  of  definition 

PAGE 

WAIT2 

01,2557 

normally  defined 

119 

WAITADr 

0630 

NORMALLY  defined 

9 

WAIjBAnK 

0625 

normally  defined 

9 

WAiTBB 

4266 

NORMALLY  defined 

118 

WAITEXIT 

0624 

NORMALLY  DEFInED 

9 

WAITLIST 

4251 

normally  defined 

118 

WAITTeMP 

0631 

NORMALLY  defined 

9 

waketest 

01,2427 

normally  defined 

113 

WANDCHK 

10,2473 

NORMALLY  defined 

233 

WANDUF 

10,2523 

NORMALLY  defined 

234 

waskset 

1017 

NORMALLY  defined 

11 

WASOPSET 

1022 

NORMALLY  defined 

12 

woagain 

05,3230 

NORMALLY  defined 

178 

WOCnT 

0123 

DEFINED  BY  Equals 

8 

WOReT 

0101 

defined  BY  equals 

7 

WKSEArCH 

4636 

normally  defined 

206 

WORCHK 

10,2607 

NORMALLY  defined 

235 

WOROV 

10,2642 

normally  defined 

236 

WRDRET 

0101 

defined  by  equals  but  never  referred  to 

7 

wt^bort 

01,2663 

normally  defined 

121 

WTLST2 

01,2664 

NORMALLY  DEFINED 

122 

WTLST4 

01,2603 

NORMALLY  defined 

120 

wtlsts 

01,2625 

NORMALLY  defined 

121 

XI 

0046 

defined  by  EQUALS 

6 

X2 

0047 

defined  by  equals 

6 

XADz 

01*2035 

NORMALLY  DEFINED 

99 

XAO 

01,2032 

nORhAllT  DEFInEO 

99 

XCHX 

01,2024 

NORMALLY  DEFINED 

98 

xreg 

0643 

normally  defined 

10 

XREGLP 

0646 

normally  defined 

10 

XSTqRE 

01,2002 

normally  defined 

98 

XSU 

01,2043 

normally  defined 

99 

XtRANDX 

10,2732 

normally  defined 

237 

YREQ 

06^4 

normally  defined 

10 

YREGLP 

0647 

normally  defined 

10 

2 

0005 

DEFINED  by  EQuALs 

5 

ZERO 

7653 

normally  defined 

58 

ZEROANs 

00,3315 

normally  defined 

90 
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SYMBOL 

DEPINITIoN 

health  oe  definition 

page 

ZREe 

0645 

NORMALLY  defined 

10 

zreglp 

0650 

normally  defined 

10 

ZRUPT 

0015 

defined  by  equals  but  never  REFERRED  TO 

5 
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summary  OF  symbol  Table  analysis 


30 

DEFINED  BY  EoUAlS  BUT  NEVER  REFERRED  TO 

113 

DEFINED  BY  EQUALS 

1047 

normally  defined 

TOTAL! 

1190 

275690  YUL  SYSTEM  FOR  bLK2|  REVISION  0 OF  PROGRaM  R^TRed^^ 


MEMORY  type  6 AVAILABILITY  DISPLAY 


0000 

TO 

0057 

SPECIAL  OR  nonexistent  MEMORY 

0060 

TO 

0066 

AVAILABLE  ERASABLE  MEMORY 

0067 

reserved  erasable  memory 

0070 

TO 

0077 

AVAILABLE  ERAsABLE  MEMORY 

0100 

TO 

0771 

RESERVED  ERASABLE  MEMORY 

0772 

TO 

0777 

available  erasable  memory 

1000 

TO 

1047 

RESERVED  ERASABLE  MEMORY 

1050 

TO 

1377 

available  erasable  memory 

E3«UOO 

TO 

e3,1420 

reserved  erasable  memory 

E3,1421 

TO 

E7,1777 

available  erasable  memory 

AOOO 

TO 

4044 

RESERVED  FIXED  MEMORY 

A0A5 

TO 

4047 

AVAILABLE  FIXED  MEMORY 

4050 

reserved  fixed  memoRv 

4051 

TO 

4053 

AVAILABLE  FIXED  MEMORY 

4054 

TO 

5017 

RESERVED  FIXED  MEMORY 

5020 

To 

5777 

available  fixed  memory 

6000 

To 

7662 

rEsErved  fixed  memory 

7663 

TO 

7777 

available  fixed  Memory 

00,2000 

TO 

00,3641 

RESERVED  FIXED  MEMORY 

00,3642 

TO 

00,3777 

AVAILABLE  FIXED  MEMORY 

01,2000 

TO 

01,2210 

RESERVED  fixed  MEMORy 

01,2211 

To 

01,2212 

available  fixed  memory 

01,2213 

To 

01.2266 

reserved  FIXED  MEMORY 

01,2267 

TO 

01,2270 

AVAILABLE  FIXED  MEMORY 

01.2271 

TO 

01.2476 

RESERVED  FIXED  MEMORY 

01,2477 

available  fixed  memory 

01.2500 

TO 

01,2512 

Reserved  fi^ed  memory 

01,2513 

available  fixed  memory 

01.2514 

TO 

01.2516 

ReSeRVeD  pI^ED  MeMORV 

01,2517 

available  fixed  memory 

01.2520 

TO 

01,2522 

RESERVED  FIXED  MEMORY 

01.2523 

AVAILABLE  FIXED  MEMORY 

01.2524 

To 

01.2525 

reserved  fixed  memory 

01.2526 

TO 

01,2527 

AVAILABLE  FIXED  MEMORY 

01.2530 

TO 

01.3123 

rEsErved  fixed  memory 

01,3124 

available  fixed  Memory 
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01,3125 

TO 

01,3305 

reserved  fixed  MEMhRv 

01,3306 

AVAILABLE  FIXED  MEMORY 

01.3307 

TO 

01,3312 

RESERVED  FIXED  MEMORY 

01.3313 

TO 

01,3777 

available  fixed  memory 

02.2000 

TO 

03,3777 

SPEC  I At  OR  nonexistent  MEMORY 

04.2000 

TO 

04,2227 

reserved  fixed  memory 

04,2230 

available  fixed  Memory 

04,2231 

TO 

04,2450 

reserved  fixed  memory 

04,2451 

available  fixed  Memory 

04,2452 

TO 

04,2560 

RESERVED  FIXED  MEMORY 

0A,2561 

AVAILABLE  FIXED  MEMORY 

04.2562 

TO 

04,2725 

RESERVED  FIXED  MEMORY 

04,2726 

AVAIeABlE  FIXED  mEmoRY 

04.2727 

TO 

04,3207 

reserved  fixed  memory 

04,3210 

AVAILABLE  FIXED  MEMORY 

04.3211 

TO 

04,3315 

reserved  fixed  Memory 

04,3316 

available  fixed  memory 

04.3317 

TO 

04,3333 

Reserved  fixed  memory 

04,3334 

AVAILABLE  FIXED  MEMORY 

04.3335 

TO 

04,3352 

RESERVED  FIXED  MEMORY 

04,3353 

Available  fixed  memory 

04.3354 

TO 

04,3515 

RESERVED  FIXED  MEMORY 

O4.35I6 

TO 

04.3777 

AVAILABLE  FIXED  MEMORY 

05.2000 

TO 

05,2414 

reserved  fixed  memory 

05,2415 

AVAILABLE  FIXED  MEMORY 

05.2416 

TO 

05,3115 

reserved  fixed  memory 

05,3116 

available  fI><ed  Memory 

05,3117 

TO 

05,3476 

reserved  fixed  memory 

05.3477 

TO 

05,3777 

available  fI’^ed  Memory 

06,2000 

TO 

06,2444 

reserved  fixed  memory 

06.2445 

TO 

06,3777 

AVAILABLE  FIXED  MEMORY 

07,2000 

TO 

07.3163 

RESERVED  FIXED  MEMORY 

07.3164 

To 

07,3777 

available  fixed  memory 

10.2000 

TO 

10,3274 

RESERVED  FIXED  MEMORY 

10.3275 

TO 

27,3777 

available  FIXED  MEMORY 
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occupied 

Locations 

pAge 

OCCUPIED 

locations 

PAGE 

4000 

To 

4044 

15 

6430 

To 

6453 

31 

4050 

16 

6454 

TO 

6463 

32 

4054 

TO 

4062 

16 

6464 

TO 

6525 

33 

9063 

To 

4111 

105 

6526 

TO 

6561 

34 

4112 

TO 

4130 

106 

6562 

TO 

6627 

35 

4131 

TO 

4163 

107 

6630 

36 

4164 

TO 

4214 

108 

6631 

TO 

6660 

37 

4215 

TO 

4250 

ll7 

6661 

TO 

67O7 

38 

4251 

TO 

4271 

118 

6710 

TO 

6731 

39 

4272 

TO 

4332 

123 

6732 

TO 

6757 

40 

4333 

TO 

4346 

128 

676° 

TO 

7OO7 

4l 

4347 

To 

4355 

176 

7010 

TO 

7046 

42 

435a 

TO 

437I 

ls6 

7047 

TO 

7O6I 

43 

4372 

TO 

4377 

187 

7062 

TO 

7II4 

44 

4400 

To 

4420 

188 

7115 

To 

7131 

45 

4421 

TO 

4427 

l89 

7132 

TO 

7172 

46 

443o 

TO 

4457 

2oO 

7173 

TO 

7229 

47 

4460 

TO 

4520 

201 

7226 

TO 

7274 

48 

4521 

TO 

4552 

202 

7275 

TO 

7305 

49 

4553 

TO 

4567 

204 

7306 

TO 

7344 

5O 

4570 

TO 

4607 

205 

7345 

TO 

7370 

51 

4610 

TO 

4661 

206 

737I 

TO 

7422 

52 

4662 

207 

7423 

TO 

7461 

53 

4663 

To 

4737 

210 

7462 

TO 

7506 

94 

4740 

TO 

500a 

211  ' 

75O7 

TO 

7540 

55 

5OO7 

TO 

5OI7 

212 

794I 

TO 

757I 

56 

6000 

To 

6012 

17 

7572 

TO 

7624 

57 

6013 

TO 

6035 

le 

7625 

TO 

7660 

98 

6q36 

TO 

6q47 

19 

7661 

TO 

7662 

59 

6050 

TO 

6070 

20 

00<2000 

TO 

00*2013 

60 

6O7I 

To 

6134 

21 

OO12OI4 

TO 

00,2061 

6l 

6135 

TO 

6l66 

22 

00.20^2 

TO 

00*2101 

62 

6167 

TO 

6216 

23 

00,2102 

TO 

00  2124 

63 

621? 

TO 

6234 

24 

O0t2125 

TO 

00,2152 

64 

6235 

To 

6274 

25 

00*2153 

TO 

00*2173 

65 

6275 

TO 

6314 

26 

00*2174 

TO 

00*2215 

66 

6315 

TO 

6333 

27 

00*2216 

TO 

00*2256 

67 

6334 

TO 

6350 

28 

00*2257 

TO 

00,2311 

68 

6351 

TO 

6412 

29 

00*2312 

TO 

00*2331 

69 

6413 

To 

6427 

30 

00*2332 

To 

00*2401 

7O 
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OCCUPIED  LOCATIONS  PAGE  OCCUPIED  LOCAjIoNs  PAGE 


00,2402 

7I 

01,2406 

To 

01*2453 

113 

00 

*2403 

TO 

00,2443 

72 

01,2454 

TO 

01*2464 

114 

00 

*2444 

TO 

00,2461 

73 

01,2465 

TO 

01*2476 

ll5 

00 

*2462 

TO 

00,2511 

74 

01,2500 

TO 

01*2512 

ll5 

00 

,2512 

TO 

00,2531 

75 

01,25l4 

TO 

01,2516 

115 

00 

*2532 

TO 

00,2546 

76 

01,2520 

TO 

01,2522 

115 

00 

*2547 

TO 

00,2563 

77 

01,2524 

ll5 

00 

*2564 

TO 

00,2575 

78 

01,2525 

ll6 

00 

*2576 

TO 

00,2636 

79 

01,2530 

TO 

01,2556 

ll6 

00 

*2637 

TO 

00,2674 

80 

01,2557 

TO 

01*2602 

l!q 

00 

*2675 

TO 

00,2724 

81 

01,2603 

TO 

01*2624 

120 

00 

*2725 

TO 

00,2747 

82 

01,2625 

TO 

01*2663 

121 

00 

*2750 

TO 

00,3004 

83 

01 *2664 

TO 

01*2676 

122 

00 

*3005 

TO 

00,3043 

84 

01*2677 

TO 

01*2743 

124 

00 

*3044 

To 

00,3063 

85 

01*2744 

TO 

01*3020 

IZ5 

00 

*3064 

TO 

00,3106 

86 

01*3021 

TO 

01*3026 

126 

§§ 

*31o7 

TO 

00*3147 

00,3216 

87 

q1 *3q27 

TO 

Ol*3o5l 

127 

*3150 

TO 

88 

01*3052 

TO 

01*3075 

128 

00 

*3217 

TO 

00,3261 

89 

01*3076 

TO 

01*3103 

129 

00 

*3262 

TO 

00,3321 

9O 

01*3104 

TO 

01,3123 

130 

00 

*3322 

TO 

00,3367 

9I 

01*3125 

TO 

01*3152 

130 

00 

*3370 

TO 

00,3430 

92 

01,3153 

TO 

01*3204 

131 

00 

,3431 

TO 

00,3464 

93 

01,3205 

TO 

01*3263 

132 

00 

*3465 

To 

00,3521 

94 

01,3264 

TO 

01,3305 

133 

00 

*3s22 

TO 

00,3563 

95 

01*3307 

TO 

01*3312 

133 

00 

*3564 

TO 

00,3625 

96 

04*2000 

TO 

04*2050 

140 

00 

*3626 

To 

00,3641 

97 

04*2051 

TO 

04*2117 

141 

01 

*2000 

TO 

01,2031 

98 

04*2120 

TO 

04*2200 

142 

gl 

*2q32 

TO 

,2q66 

99 

g4,22gl 

TO 

q9,2227 

143 

01 

*2067 

TO 

eiUlOA 

100 

04*2231 

TO 

04*2247 

143 

01 

*2107 

To 

01,2134 

101 

04*2250 

TO 

04*2323 

144 

01 

*2135 

TO 

01,2151 

102 

04*2324 

TO 

04*237! 

145 

01 

,2152 

TO 

01.2173 

103 

04,2372 

TO 

04,2432 

146 

01 

*2174 

TO 

01,2210 

104 

04*2433 

TO 

04*2450 

147 

01 

*2213 

TO 

01,2217 

104 

04*2452 

TO 

04*2505 

147 

01 

*2220 

TO 

01,225! 

109 

04*2506 

TO 

04*2532 

148 

01 

*2252 

TO 

01,2266 

110 

04*2533 

TO 

04*2560 

l6l 

01 

*2271 

TO 

01,2314 

110 

04*2562 

l6l 

01 

*23i5 

TO 

01,2367 

111 

04*2563 

TO 

04*263! 

162 

01 

*2370 

To 

01,2405 

112 

04*2632 

To 

04*2665 

163 
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occupied 

Locations 

page 

OCCUPIED 

locations 

page 

04,2666 

TO 

04,2700 

164 

05,2034 

TO 

05,2112 

150 

04<2701 

TO 

04.2720 

I7O 

05.2113 

TO 

O5.2I7O 

l5l 

04.2721 

To 

04.2725 

l7l 

O5.2I7I 

TO 

05.2175 

152 

04.2727 

TO 

04.2773 

I7I 

05.21^6 

TO 

05.2240 

153 

04.2774 

To 

04.3043 

172 

05.224! 

TO 

05.2311 

154 

Oa .3044 

To 

04.3056 

I73 

05.2312 

TO 

05.2325 

155 

04.3057 

TO 

04.3132 

I77 

05.2326 

TO 

05,2402 

158 

04.3133 

To 

04.3156 

178 

05.2403 

To 

05.2414 

159 

04.3157 

TO 

04.3174 

179 

05.2416 

TO 

05.2452 

159 

O4.3I75 

TO 

O4.32O7 

180 

05.2453 

TO 

05.2524 

l60 

04.3211 

To 

04.3245 

IsO 

05.2525 

To 

05.2534 

I6l 

04.3246 

TO 

04.3265 

IsT 

05.2535 

TO 

05.2604 

16S 

g4 .3266 

To 

o'-.aau 

183 

o5.26q5 

TO 

q5  f 2 662 

166 

04.3312 

To 

04.3315 

1b4 

05.2663 

TO 

05.2733 

167 

04.3317 

TO 

04.3333 

Iba 

05.2734 

TO 

05.3006 

168 

04.3335 

TO 

04.3352 

184 

05.3007 

TO 

O5.3O52 

l69 

04.3354 

TO 

04.3372 

1b4 

05.3053 

TO 

05.3076 

I7O 

04.3373 

To 

04.3377 

1b5 

O5.3O77 

TO 

05,3115 

174 

OA.34OO 

TO 

04.3413 

189 

O5.3II7 

TO 

05.3130 

174 

04.3414 

To 

04.3431 

I9O 

05.3131 

TO 

05,3176 

175 

04.3432 

TO 

04.3453 

204 

O5.3I77 

TO 

05.3221 

I76 

04.3454 

To 

04.3475 

205 

05.3222 

TO 

05.3245 

178 

04.3476 

To 

04.3515 

207 

05.3246 

TO 

05.3266 

179 

05.2000 

TO 

05.2033 

149 
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OCCUPIED 

LOCATIONS 

page 

OCCUPIED 

locations 

page 

05,3267 

TO 

05  3301 

l8l 

07,2556 

TO 

07,2631 

221 

05.3302 

TO 

05,3337 

1b2 

07.2632 

TO 

O7.27O5 

222 

05.3340 

TO 

05,3343 

183 

O7.27O6 

TO 

07.2756 

223 

05.3344 

TO 

05.3402 

187 

O7.2757 

TO 

O7.3O34 

224 

O5.34O3 

TO 

05,3413 

189 

07.3035 

TO 

07.3112 

225 

05.3414 

TO 

05.3455 

20e 

O7.3II3 

TO 

O7.3I63 

226 

05.3456 

TO 

05 . 3476 

209 

10,2000 

226 

06.2000 

To 

06,2036 

193 

10.2001 

TO 

10.2054 

227 

06.2037 

TO 

06,2107 

194 

10,2055 

TO 

10.2133 

22  b 

06.2110 

TO 

06.2162 

195 

10,2134 

TO 

10,2207 

229 

06.2163 

To 

06,2242 

196 

10.2210 

TO 

10.2265 

230 

06,2243 

TO 

06,2315 

197 

10,2266 

TO 

10.2344 

231 

06. 2316 

TO 

06.2372 

198 

10,2345 

TO 

In, 2415 

232 

06.2373 

TO 

06.2444 

199 

10.2416 

TO 

10.2473 

233 

07.2000 

TO 

07,2041 

212 

10.2474 

TO 

10.2553 

234 

07.2042 

TO 

07,2114 

213 

10.2554 

TO 

10.2633 

235 

07,2115 

TO 

07,2165 

214 

10,2634 

TO 

10,2713 

236 

07,2166 

TO 

07,2235 

215 

10,2714 

TO 

10.2763 

237 

07.2236 

TO 

07,2311 

216 

10.2764 

TO 

IO.3O4I 

238 

07,2312 

To 

07,2361 

217 

10,3042 

TO 

10.3113 

239 

07,2352 

TO 

07,2441 

218 

10,3114 

TO 

10.3166 

240 

07,2442 

TO 

07^2503 

219 

10,3167 

TO 

10.3241 

241 

07.2504 

TO 

07,2555 

220 

10.3242 

TO 

10.3274 

242 
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PARAGRAPHS  generated  FOR  yHIS  PROGrAM-i,  ADDrEss  tlMljS  AND  jHE  MANyFACiyRiNG  LOCAjION  CODE  ArE  sHOWN  FOR  EACh, 


4000 

To 

4377 

PARAGRAPH 

» 

010 

ROPE 

MODULE 

1 ( 

SIDE 

A( 

SENSE 

LINE 

SET 

05 

(WIRES 

65-80) 

4400 

TO 

4777 

PARAGRAPH 

0 

oil 

ROPE 

MODULE 

1( 

SIDE 

B( 

SENSE 

LINE 

set 

05 

(WIRES 

65-80) 

5000 

TO 

5377 

paragraph 

0 

012 

ROPE 

MODULE 

1( 

Side 

A( 

SENSE 

Line 

SET 

06 

(WIRES 

81-96) 

6000 

TO 

6377 

paragraph 

0 

014 

ROPE 

MODULE 

1( 

SIDE 

A( 

SENSE 

Line 

set 

07 

(WIRES 

97-112) 

6400 

TO 

6777 

paragraph 

0 

015 

POPE 

MODULE 

1( 

Side 

B( 

SENSE 

Line 

SET 

07 

(WIRES 

97-112) 

7000 

TO 

7377 

PARAGRAPH 

0 

0l6 

ROPE 

MODULE 

1* 

SIDE 

A( 

SENSE 

LINE 

SET 

08 

(WIRES 

113-128) 

7400 

TO 

7777 

PARAGRAPH 

0 

017 

ROPE 

module 

1( 

SIDE 

B( 

SENSE 

line 

SET 

08 

(WIRES 

113-128) 

00,2000 

TO 

00,2377 

paragraph 

0 

020 

ROPE 

MODULE 

1( 

SIDE 

A( 

SENSE 

Line 

SET 

01 

(WIRES 

1-16) 

00«2400 

TO 

00,2777 

PARAGRAPH 

0 

021 

ROPE 

MODULE 

1( 

SIDE 

B( 

sense 

Line 

SET 

01 

(WIRES 

1.16) 

00(3000 

TO 

00,3377 

PARAGRAPH 

0 

022 

ROPE 

MODULE 

1( 

SIDE 

A( 

SENSE 

Line 

SET 

02 

(WIRES 

17-32) 

00(3400 

TO 

00,3777 

PARAGRAPH 

0 

023 

ROPE 

MODULE 

1( 

SIDE 

B( 

SENSE 

line 

set 

02 

(WIRES 

17-32) 

01(2000 

TO 

01(2377 

PARAGRAPH 

0 

024 

ROPE 

MODULE 

1( 

SIDE 

A( 

SENSE 

Line 

SET 

03 

(WIRES 

33-48) 

01(2400 

TO 

01(2777 

paragraph 

0 

025 

ROPE 

MODuLE 

1( 

SIDE 

B( 

SENsE 

Line 

set 

03 

(WIRES 

33-48) 

01(3000 

TO 

01(3377 

paragraph 

0 

026 

ROPE 

MODULE 

1( 

SjDE 

A( 

sense 

Line 

set 

04 

(Wires 

49-64) 

04(2000 

TO 

04(2377 

paragraph 

0 

040 

ROPE 

MODuLE 

1( 

side 

A( 

SENsE 

Line 

SEt 

09 

(WIRES 

129-144) 

04(2400 

TO 

04(2777 

paragraph 

0 

041 

POPE 

MODULE 

1( 

SjOE 

B( 

sense 

Line 

set 

09 

(Wires 

12g-l44) 

0A(3000 

TO 

0A(3377 

paragraph 

0 

042 

rope 

MODULE 

1 • 

SIDE 

A( 

SENSE 

line 

SET 

10 

(WIRES 

l45-l6o) 

04(3400 

TO 

04(3777 

paragraph 

0 

043 

ROPE 

hODUlE 

1 ( 

SIDE 

B( 

SENSE 

line 

SET 

10 

(WIRES 

145.160) 

05,2000 

TO 

05,2377 

paragraph 

0 

044 

ROPE 

MODULE 

1, 

SIDE 

A( 

SENSE 

Line 

SET 

11 

(WIRES 

161-176) 

05,2400 

TO 

05(2777 

paragraph 

0 

045 

ROPE 

MODULE 

1( 

SIDE 

B( 

sense 

Line 

SET 

11 

(WIRES 

161.176) 

05(3000 

TO 

05(3377 

paragraph 

0 

046 

ROPE 

MODULE 

1 ( 

SIDE 

A( 

SENSE 

Line 

SET 

12 

(WIRES 

177-192) 

05(3400 

TO 

05(3777 

paragraph 

0 

047 

ROPE 

module 

1( 

SIDE 

B( 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

06(2000 

TO 

06(2377 

PARAGRAPH 

0 

O5O 

ROPE 

MODULE 

2( 

SIDE 

A( 

SENSE 

Line 

SET 

01 

(WIRES 

l-l6> 

06(2400 

TO 

06(2777 

paragraph 

0 

051 

ROPE 

MODuLE 

2( 

SIDE 

B( 

SENSE 

line 

set 

01 

(WIRES 

1-16) 

07(2000 

TO 

07(2377 

paragraph 

0 

054 

ROPE 

MODULE 

2( 

SIDE 

A( 

SENSE 

Line 

SET 

03 

(WIRES 

33-48) 

07(2400 

TO 

07(2777 

paragraph 

0 

055 

ROPE 

MODuLE 

2( 

SIDE 

B( 

SENSE 

Line 

SEt 

03 

(WIRES 

33-48) 

07(3000 

TO 

07(3377 

paragraph 

0 

056 

ROPE 

MODULE 

2( 

Side 

A( 

sense 

LiNe 

set 

04 

(Wires 

49-64) 

10(2000 

TO 

10(2377 

paragraph 

0 

060 

ROPE 

MODuLE 

2( 

side 

A( 

sENsE 

line 

sEt 

05 

(WIRES 

65-80) 

10(2400 

TO 

10(2777 

paragraph 

0 

061 

rope 

module 

2( 

Side 

B( 

Sense 

LiNe 

Set 

05 

(WiReS 

65-80) 

10*3000 

TO 

10(3377 

PARAGRAPH 

0 

o62 

rope 

MODULE 

2( 

SIDE 

A( 

SENSE 

LINE 

SET 

08 

(WIRES 

8i-96) 
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ALL  valid  wOrDS  ArE  BASIC  INSTRUCTIONS  ExCEPt  tHOsE  MARKED  "I"  ( INTERPRET! CpErAtOR  wORDs)  OR  "C»  {CqNStANtS) . 


AOOO 

00004 

0 

34054 

1 

56006 

1 

12721 

0 

52011 

0 

34055 

0 

56006 

1 

14330 

1 

AOlO 

52011 

0 

34056 

0 

56006 

1 

14330 

1 

52011 

0 

34057 

1 

56006 

1 

14272 

0 

A020 

52011 

0 

34060 

0 

56006 

1 

I3O52 

1 

52011 

0 

34061 

1 

56006 

1 

13153 

1 

4030 

52011 

0 

34061 

1 

56006 

1 

13175 

0 

52011 

0 

34061 

1 

56006 

1 

I32O5 

1 

4040 

52011 

0 

34062 

1 

56006 

1 

14330 

1 

50017 

1 

e 

e 

e 

4050 

50017 

1 

e 

e 

e 

C( 

02003 

0 

Ci 

04000 

0 

Ci 

04000 

0 

Cs 

04003 

0 

4060 

C! 

02002 

1 

Ci 

02001 

1 

CS  04000 

0 

52120 

0 

50002 

0 

30000 

1 

24002 

0 

54OO1 

1 

4070 

22004 

0 

76425 

0 

56002 

0 

52120 

0 

50002 

0 

02000 

0 

56120 

1 

56004 

0 

4100 

56120 

1 

OOII7 

0 

56002 

0 

5OOOO 

1 

30000 

1 

54OO4 

1 

76425 

0 

56002 

0 

4110 

50002 

0 

12000 

1 

36425 

1 

7OII7 

1 

60120 

1 

00002 

0 

54001 

1 

22OO4 

0 

4120 

22121 

0 

76425 

0 

00006 

1 

50000 

1 

32001 

1 

56121 

0 

64004 

1 

30121 

0 

4130 

00002 

0 

54632 

1 

00006 

1 

50002 

0 

30001 

0 

52634 

1 

34214 

1 

56004 

0 

4l40 

54626 

1 

12241 

0 

54632 

1 

00006 

1 

5OOO2 

0 

3OOOI 

0 

52534 

1 

342I4 

1 

4I5O 

56®°A 

0 

15220 

1 

34214 

1 

54OOI 

1 

30002 

0 

2Z00(, 

1 

00n04 

0 

12316 

0 

4I6O 

34214 

1 

54OOI 

1 

4OI5O 

1 

I4I55 

0 

54I5O 

1 

342I4 

1 

54OO4 

1 

12375 

0 

4170 

54633 

0 

47695 

0 

26002 

1 

34214 

1 

56004 

0 

12406 

0 

00004 

0 

54632 

1 

4200 

34214 

1 

56006 

1 

54I5I 

0 

30002 

0 

12454 

1 

34214 

1 

54004 

1 

12465 

0 

4210 

30626 

0 

54004 

1 

50002 

0 

00002 

0 

CS 

02220 

0 

47653 

1 

54067 

1 

OOOO3 

1 

4220 

47645 

0 

00006 

1 

03011 

1 

14226 

1 

00006 

1 

23043 

1 

10067 

1 

14241 

0 

4230 

376A5 

1 

17235 

0 

3425O 

1 

54OO4 

1 

O1O43 

1 

00006 

1 

O5OII 

1 

5ZI5I 

0 

4240 

52006 

0 

3 f645 

1 

00006 

1 

O5OII 

1 

34214 

1 

54OO4 

1 

0 

0 

0 

0 

0 

12315 

0 

4250 

C) 

21271 

0 

56002 

0 

54624 

0 

00006 

1 

5OOOO 

1 

3OOOI 

0 

54630 

0 

34266 

1 

4260 

56006 

1 

12557 

0 

30625 

0 

54006 

0 

50624 

1 

00002 

0 

CS 

02003 

0 

Ci 

73506 

0 

4270 

C5 

73774 

1 

14321 

1 

54016 

1 

00006 

1 

22012 

1 

37627 

0 

57404 

0 

57403 

1 

4300 

57^02 

0 

57401 

0 

57400 

1 

67626 

1 

26026 

1 

54636 

0 

47653 

1 

54636 

0 

4310 

00006 

1 

4427O 

1 

53420 

1 

53416 

1 

53414 

0 

53412 

0 

53410 

1 

534°6 

0 

4320 

92006 

0 

10636 

0 

34266 

1 

54OO6 

0 

14275 

1 

00006 

1 

22012 

1 

30016 

0 

4330 

54006 

0 

54011 

0 

50017 

1 

C! 

04025 

1 

C; 

10003 

0 

Ci 

14031 

0 

Ci 

20033 

0 

Cs 

24OI7 

1 

4340 

c: 

30036 

1 

c: 

34034 

1 

C!  40023 

1 

C! 

44035 

1 

CS 

50037 

0 

CS 

54OOO 

0 

CS 

60000 

1 

34355 

0 

4350 

70660 

0 

54107 

0 

04372 

0 

04354 

1 

04205 

1 

CS 

07700 

1 

54107 

0 

10652 

1 

4360 

00002 

0 

30002 

0 

67646 

1 

54700 

1 

04400 

1 

34371 

0 

56006 

1 

547OI 

0 

4370 

02000 

0 

c: 

12001 

0 

30002 

0 

67646 

1 

54700 

1 

04365 

0 

52701 

0 

52006 

0 
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octaL  listing  of  Paragraph  oii,  with  Parity  sit  in  binary  aT  the  right  of  each  wOrOs  "e"  oenotes  unused  fixed  memory. 


. VAUIO 

WORDS  Are  i 

BASIC 

instructions 

ExCEpT  THqSE 

marked  "I" 

(INTERPRETIVE 

OpERAToF 

1 WORDS)  oR 

"C 

" (Constants), 

AAOO 

67630 

1 

0O004 

0 

70661 

1 

67630 

0 

56661 

1 

00003 

1 

00002 

0 

37666 

1 

4A10 

56652 

1 

22004 

0 

56002 

0 

52120 

0 

04112 

1 

56676 

1 

06166 

0 

O62O5 

1 

4420 

10656 

1 

14426 

1 

14607 

1 

00002 

0 

50002 

0 

00002 

0 

50002 

0 

OOOOl 

0 

4430 

56657 

1 

56003 

0 

76506 

0 

66505 

0 

54131 

0 

00002 

0 

30657 

0 

16431 

1 

4440 

56003 

0 

76506 

0 

66505 

0 

00002 

0 

cl 

00016 

0 

Cl 

00011 

1 

cl 

00006 

0 

54020 

1 

4450 

40020 

1 

40020 

1 

4OO2O 

1 

40020 

1 

56020 

0 

00002 

0 

56022 

0 

40022 

0 

4460 

40022 

0 

40022 

0 

40022 

0 

56022 

1 

00002 

0 

60000 

1 

60000 

1 

60000  1 

4470 

60000 

1 

60000 

1 

00002 

0 

Cl 

00037 

0 

Cl 

01760 

0 

Cl 

76000 

0 

06131 

0 

04251 

0 

4500 

04321 

0 

04142 

1 

Cl 

30000 

1 

Ci 

03777 

0 

Cl 

00377 

1 

Cl 

01600 

1 

Cl 

00023 

0 

C!  00021 

1 

4510 

Ci 

00025 

0 

Cl 

00012 

1 

37660 

1 

00006 

1 

O5OII 

1 

00002 

0 

67660 

0 

00006 

1 

4520 

03011 

1 

0V0O2 

0 

37662 

0 

00006 

1 

O5OII 

1 

00002 

0 

00006 

1 

30025 

0 

4530 

52755 

1 

00002 

0 

00006 

1 

30142 

0 

20142 

1 

60160 

1 

26160 

0 

54OO7 

1 

4560 

00002 

0 

54105 

1 

00002 

0 

37641 

0 

00006 

1 

05011 

1 

00002 

0 

67661 

1 

4550 

00006 

1 

OfOll 

1 

00002 

0 

10677 

0 

00002 

0 

37666 

1 

56677 

0 

5OOO2 

0 

4560 

00001 

0 

36625 

1 

70002 

1 

60004 

0 

04102 

0 

c: 

10000 

0 

10677 

0 

16561 

0 

4570 

37646 

1 

56677 

0 

00002 

0 

44600 

1 

60002 

0 

6OOO4 

0 

06102 

0 

Cl  lOOOl 

1 

4600 

Cl 

02003 

0 

56IO7 

0 

10652 

1 

14606 

1 

30002 

0 

16363 

1 

24002 

0 

16573 

0 

4610 

56002 

0 

56130 

1 

37655 

0 

60677 

1 

00006 

1 

666^3 

1 

06636 

0 

O66Z3 

1 

4620 

04170 

0 

3 f666 

1 

56677 

0 

00004 

0 

67662 

1 

00006 

1 

03011 

1 

37653 

0 

4630 

54652 

1 

06003 

1 

OOI3O 

0 

56002 

0 

56130 

1 

06623 

1 

37653 

0 

56702 

1 

4660 

56703 

0 

567°6 

1 

00006 

1 

I6667 

1 

0 

0 

0 

0 

0 

5OOO2 

0 

OOOOl 

0 

OOOO2 

0 

6650 

56002 

0 

56130 

1 

00004 

0 

34661 

1 

O425I 

0 

Cl 

03676 

1 

Cl 

10001 

1 

OOOO3 

1 

6660 

00130 

0 

Cl 

01750 

1 

06662 

1 

Cl 

01034 

1 

Ci 

01035 

0 

Cl 

01036 

0 

Cl 

02611 

1 

Cl  O26I7 

1 

6670 

C) 

04725 

0 

Cl 

02673 

0 

Cl 

OOOOl 

0 

Cl 

00002 

0 

Cl 

00006 

0 

Cl 

00010 

0 

Cl 

00020 

0 

Cl  00040 

0 

4700 

cl 

00100 

0 

cl 

00200 

0 

Cl 

00400 

0 

cl 

01000 

0 

cl 

02000 

0 

Cl 

06000 

0 

Cl 

10000 

0 

Cl  20000 

0 

4710 

cl 

40000 

0 

cl 

OWOOO 

1 

C! 

OOOOl 

0 

cl 

00002 

0 

cl 

00003 

1 

Cl 

00004 

0 

cl 

00005 

1 

C!  00006 

1 

4720 

C) 

00007 

0 

Cl 

00077 

1 

Cl 

00177 

0 

Cl 

17777 

0 

Cl 

25252 

0 

Cl 

37777 

1 

Cl 

40000 

0 

Cl  40400 

1 

4730 

Cl 

52500 

0 

Cl 

52525 

1 

Cl 

52552 

1 

Ci 

57761 

0 

CI 

77725 

1 

Cl 

77760 

0 

Cl 

77761 

1 

Cl  77770 

1 

4760 

cl 

77771 

0 

cl 

7^772 

0 

Cl 

77773 

1 

cl 

77776 

0 

c* 

77775 

1 

cl 

77776 

1 

cl 

77777 

0 

Cl  14000 

1 

6750 

Cl 

37776 

0 

Cl 

06712 

1 

Ci 

04747 

1 

40000 

0 

10000 

0 

16770 

1 

I677O 

1 

14770 

1 

676O 

00002 

0 

4O0OO 

0 

10000 

0 

I677O 

1 

I477O 

1 

lOOOO 

0 

I677O 

1 

00002 

0 

6770 

56002 

0 

5?064 

1 

25065 

1 

00004 

0 

66727 

0 

70675 

1 

66727 

1 

54675 

1 
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octal  listing  of  paragraph 

* 0l2t  WITH 

parity  bit  in 

binary  at 

THE  RIGHT  OF  EACH 

wORD<b  "e" 

denotes 

unused  fixed  memory. 

all  valid 

WORDS  ARE  BASIC 

instructions 

EXCEpT  THoSE 

MARKED  "1" 

( interpretive  Operator  woRdsi  qR  "c 

" (Constants). 

5000 

00003  1 

31047  0 

00006  1 

65005 

1 05010  0 

3A711 

1 

55047  1 

04224  1 

5010 

11047  1 

05014  1 

O5OO7  0 

05014 

1 0a224  1 

35017 

1 

04105  1 CJ 

UOO3  0 

5020 

§ 

e 

© 

© 

© 

© 

© 

© 

5030 

e 

e 

© 

© 

© 

© 

© 

© 

5040 

@ 

e 

© 

© 

© 

© 

© 

© 

5050 

# 

© 

© 

© 

© 

© 

, © 

5060 

e 

© 

© 

© 

© 

© 

© 

5070 

@ 

© 

© 

© 

© 

© 

© 

5100 

e 

© 

© 

© 

© 

© 

© 

5U0 

@ 

s 

© 

6 

© 

© 

© 

5120 

§ 

s 

© 

S 

© 

© 

© 

© 

5130 

e 

e 

© 

© 

© 

© 

© 

© 

5140 

§ 

© 

© 

s 

© 

© 

© 

© 

5150 

e 

© 

e 

© 

© 

© 

© 

5160 

@ 

e 

e 

e 

© 

© 

© 

© 

5170 

@ 

e 

e 

© 

© 

© 

© 

© 

5200 

s 

§ 

© 

e 

© 

© 

© 

© 

5210 

s 

e 

© 

© 

© 

© 

© 

© 

5220 

is 

© 

© 

e 

© 

© 

© 

© 

5230 

e 

© 

e 

© 

© 

© 

© 

© 

5240 

(9 

© 

© 

© 

© 

© 

© 

© 

5250 

§ 

© 

© 

© 

© 

© 

© 

© 

5260 

s 

© 

© 

s 

© 

© 

© 

© 

5270 

@ 

© 

© 

© 

© 

© 

© 

© 

5300 

e 

© 

e 

© 

© 

© 

© 

© 

5310 

e 

e 

© 

© 

© 

© 

© 

5320 

§ 

e 

© 

© 

© 

© 

© 

© 

5330 

e 

© 

© 

© 

© 

© 

© 

© 

5340 

e 

e 

© 

© 

© 

© 

© 

© 

5350 

§ 

© 

e 

© 

© 

© 

© 

© 

5360 

e 

© 

e 

© 

© 

© 

© 

© 

5370 
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© 

© 

© 

© 

© 

© 
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octal  listing  OF  paragraph  # OlA,  WITH  PARITY  I^IT  iN  BiNARy  AJ  THE  RIGHT  OF  EACH  wOrDs  "e"  DENOTES  UNUSEO  FixED  MEMORy, 


■ valid 

WORDS  are  I 

3ASIC  instructions 

except  those  Marked  "i" 

(INTERPRETIVE 

operator  WORDS)  OR 

"C"  (CONSTANTS). 

6000 

00006 

1 

22150 

0 

30009 

0 

59151 

0 

77630 

1 

59101 

0 

66925 

1 

59100 

1 

6010 

16023 

1 

2f006 

1 

16017 

0 

59197 

1 

30I5I 

1 

59009 

1 

10023 

1 

16032 

1 

6020 

10067 

1 

19160 

0 

29150 

0 

50150 

0 

30000 

1 

lOOOO 

0 

16391 

0 

c: 

00177 

0 

6030 

59023 

1 

76027 

0 

59020 

1 

10020 

1 

16167 

0 

16730 

1 

77696 

0 

10000 

0 

6090 

16073 

1 

50150 

0 

90001 

1 

10000 

0 

16135 

1 

Cl 

77773 

1 

29150 

0 

59102 

0 

6050 

66171 

0 

10000 

0 

66239 

1 

16060 

0 

30109 

1 

26102 

0 

50020 

0 

76239 

0 

6060 

00006 

1 

66056 

1 

60100 

0 

59009 

1 

76^25 

0 

67639 

1 

59102 

0 

50020 

0 

6070 

76239 

0 

37661 

1 

59020 

1 

30109 

1 

59119 

1 

29150 

0 

5OI5O 

0 

9OOOO 

0 

6100 

10000 

0 

24II9 

0 

16103 

1 

54IO2 

0 

76232 

0 

000O6 

1 

16111 

1 

3OIO1 

1 

6110 

26102 

0 

50119 

0 

90096 

1 

26102 

0 

76231 

0 

00006 

1 

16131 

0 

76232 

0 

6120 

00006 

1 

16133 

1 

30102 

1 

59009 

1 

76A25 

0 

67639 

1 

59102 

0 

50020 

0 

6130 

36239 

1 

30109 

1 

26102 

0 

50020 

0 

36239 

1 

36227 

0 

7OO2O 

1 

66192 

0 

6190 

10000 

0 

16153 

1 

Cl 

77767 

1 

66095 

0 

10000 

0 

50000 

1 

9616A 

0 

16155 

1 

6150 

50197 

0 

96162 

0 

16155 

1 

50197 

0 

96l6^ 

0 

26152 

0 

59102 

0 

50020 

0 

6160 

76239 

0 c: 

00002 

0 

c: 

00006 

1 

Cl 

00006 

1 

Cl 

00002 

0 

c: 

00003 

1 

C;  00006 

1 

10020 

1 

6170 

16217 

1 Cl 

77722 

0 

29150 

0 

5OI5O 

0 

30000 

1 

59103 

1 

59102 

0 

76231 

0 

6200 

10000 

0 

16203 

1 

16210 

0 

36230 

0 

54OO9 

1 

7OO2O 

1 

5OOOO 

1 

16275 

0 

6210 

30109 

1 

26102 

0 

36230 

0 

59009 

1 

7OO2O 

1 

5OOOO 

1 

16275 

0 

59OO4 

1 

6220 

10020 

1 

50000 

1 

16315 

1 

10197 

1 

12000 

1 

I2OOO 

1 

12102 

1 

CI 

00023 

0 

6230 

Ci  02177 

1 Cl 

77700 

0 

Cl 

76000 

0 

Cl 

36000 

1 

Cl 

76056 

0 

16510 

1 

17097 

1 

17572 

1 

6290 

l75'»5 

0 

16671 

0 

16973 

0 

l69&9 

0 

I759I 

1 

16509 

1 

16623 

1 

16526 

1 

6250 

17300 

1 

16562 

1 

16631 

1 

17303 

1 

I7533 

1 

17511 

1 

17519 

1 

17520 

0 

6260 

17536 

1 

16732 

0 

16760 

1 

I7OIO 

0 

17275 

1 

17923 

1 

I737I 

1 

16776 

0 

6270 

17039 

0 

16750 

1 

16272 

1 

I75O7 

0 

I753O 

1 

I2OOO 

1 

12005 

1 

12010 

0 

6300 

12019 

1 

12020 

0 

12029 

1 

I2O4O 

0 

I2O97 

1 

12032 

0 

I2O43 

0 

I2IO7 

1 

6310 

12119 

0 

12127 

0 

12067 

0 

12135 

0 

I2O77 

1 

13125 

0 

13992 

1 

13931 

0 

6320 

13522 

0 

13524 

0 

I3IO7 

0 

I3III 

1 

17605 

1 

I3I5O 

1 

I275O 

0 

I3II9 

1 

6330 

13169 

0 

16339 

1 

13219 

1 

13167 

0 

3OI5I 

1 

59OO9 

1 

29I5O 

0 

5OI5O 

0 

6390 

o 

o 

o 

o 

0 

59102 

0 

76925 

0 

56102 

1 

76233 

1 

0000^, 

1 

77691 

1 

5OOOO 

1 

6350 

16351 

1 

06921 

0 

16022 

0 

06913 

1 

16022 

0 

06916 

1 

16022 

0 

06921 

0 

6360 

16959 

0 

06913 

1 

16959 

0 

06916 

1 

16-^59 

0 

06921 

0 

I6O7I 

0 

06913 

1 

6370 

I6O7I 

0 

06916 

1 

I6O7I 

0 

06921 

0 

16A57 

0 

06913 

1 

16957 

0 

06916 

1 
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octal  listing  of  paragraph 

* 0l5t  WITH 

parity  bit  in 

binary  at  THE 

RIGHT  OF  each 

wOrDs  "e"  denotes 

UNUSED  FIXED 

memory. 

All  valid 

WORDS  ARE  BASIC 

instructions 

EXCEpT  THoSE 

marked  "I"  UNTERpRETIVE  opERAToR  Wo^DS) 

" (Constants), 

6A00 

16457  0 

06421  0 

16462  0 

06413  1 

16462  0 

06416  1 

16462  0 

06421  0 

6410 

37657  1 

54020  1 

16172  1 

50104  1 

40046  1 

16420  0 

50104  1 

40047  0 

6420 

26102  0 

30102  1 

661 7I  0 

10000  0 

16430  1 

Cl  01777  1 

30104  1 

26102  0 

6430 

00006  1 

3OIAI  0 

50102  1 

52001  1 

10147  1 

16450  1 

00002  0 

00006  1 

6440 

30144  0 

50102  1 

52003  0 

00006  1 

30146  1 

5OIO2  1 

52005  0 

00002  0 

6450 

30142  0 

5V102  1 

54002  1 

00002  0 

3766°  0 

54020  1 

16041  0 

37630  0 

6460 

54020  1 

10041  0 

36042  1 

I6O72  0 

00006  1 

50102  1 

30001  0 

52141  1 

6470 

37653  0 

54142  1 

16013  1 

50102  1 

30002  0 

54142  1 

00006  1 

5OIO2  1 

6500 

30001  0 

52141  1 

37646  1 

16013  1 

22007  0 

5OIO2  1 

30000  1 

16467  0 

6510 

OOOOft  1 

5^102  1 

30001  0 

52I4I  1 

00006  1 

5OIO2  1 

30003  1 

52144  1 

6520 

00006  1 

50102  1 

30005  1 

52146  0 

47646  0 

I6OI3  1 

00006  1 

50102  1 

6530 

30001  0 

52141  1 

50152  1 

52001  1 

50147  0 

36l64  1 

26152  0 

10147  1 

6540 

16555  0 

I0553  0 

54147  1 

54142  1 

52144  1 

50152  1 

51775  0 

52146  0 

6550 

50152  1 

51777  1 

16014  0 

54142  1 

16014  0 

54147  1 

56142  0 

50152  1 

6560 

53777  0 

10014  0 

00006  1 

50102  1 

30001  0 

52141  1 

50152  1 

52001  1 

6570 

50147  0 

36164  1 

26152  0 

10147  1 

16613  1 

16514  0 

00006  1 

50102  1 

6600 

30003  1 

52144  1 

50152  1 

51775  0 

00006  1 

5OIO2  1 

3OOO5  1 

52146  0 

66l0 

50152  1 

5i777  1 

16014  0 

00006  1 

50102  1 

3OOO3  1 

52144  1 

30142  0 

6620 

50152  1 

53777  0 

16520  1 

24I5O  0 

5OI5O  0 

3OOOO  1 

5OIO2  1 

54000  0 

6630 

16014  0 

24150  0 

50150  0 

30000  1 

50102  1 

60000  1 

54004  1 

76425  0 

6640 

50000  1 

32000  0 

54103  1 

46425  0 

6OI5O  0 

60151  1 

5OIO4  1 

54052  1 

6650 

30103  0 

54004  1 

76425  0 

67634  1 

54I5O  1 

10004  1 

16002  1 

16661  1 

6660 

16002  1 

40150  1 

66707  1 

10000  0 

30104  1 

26150  1 

50150  0 

26000  0 

6670 

16651  1 

50150  0 

30001  0 

50102  1 

60000  1 

54004  1 

76425  0 

50000  1 

67°0 

32000  0 

16651  1 

3OI5I  1 

54OO4  1 

5OI5O  0 

30001  0 

16651  1 C; 

! O2O55  0 

6710 

lOlAO  0 

00002  0 

16714  1 

16726  0 

10141  1 

00002  0 

16720  0 

16726  0 

6720 

10142  1 

00002  0 

16724  1 

16726  0 

50002  0 

00001  0 

50002  0 

00002  0 

6730 

50150  0 

10001  1 

00006  1 

50102  1 

30003  1 

20144  1 

00006  1 

16741  1 

6-740 

O7OO6  0 

00006  1 

50102  1 

30005  1 

20146  0 

00006  1 

16750  1 

O7OO6  0 

6750 

00006  1 

50102  1 

30001  0 

20141  1 

00006  1 

16014  0 

O7OO6  0 

I6OI4  0 

6760 

00006  1 

50102  1 

40003  0 

20144  1 

00006  1 

16767  0 

O7OO6  0 

00006  1 

6770 

50102  1 

40005  0 

20146  0 

00006  1 

16776  0 

O7OO6  0 

00005  1 

50102  1 
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octal  listing  of  paragraph  * oi6,  WITH  PARITY  BIT  iN  BINARy  At  THE  RIGHT  OF  EACH  wOR^S  "e"  OEnOTES  UNUSED  FjxED  MEMORy. 
ALL  valid  words  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "l"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS), 


7000 

40001 

1 

20141 

1 

00006 

1 

16014 

0 

O7006 

0 

16014 

0 

37646 

1 

17130 

0 

7010 

00006 

1 

50102 

1 

30003 

1 

52144 

1 

00006 

1 

4OOOI 

1 

20144 

1 

00006 

1 

7020 

17022 

1 

O7OO6 

0 

00006 

1 

50102 

1 

30005 

1 

52146 

0 

00006 

1 

4OOOI 

1 

7030 

20146 

0 

00006 

1 

17034 

0 

O7OO6 

0 

00006 

1 

5OIO2 

1 

30001 

0 

52141 

1 

70A0 

00006 

1 

40001 

1 

20141 

1 

00006 

1 

16014 

0 

O7OO6 

0 

16014 

0 

0 

0 

0 

0 

1 

7050 

50102 

1 

3OOO2 

0 

20142 

1 

50102 

1 

60000 

1 

60140 

1 

54140 

0 

16014 

0 

7060 

54105 

1 

16014 

0 

50002 

0 

30000 

1 

24002 

0 

54102 

0 

50102 

1 

30001 

0 

7070 

54142 

1 

37653 

0 

56141 

0 

54121 

1 

00006 

1 

70142 

1 

56142 

0 

00006 

1 

7100 

7OI4O 

0 

20142 

1 

5OIO2 

1 

3OOOO 

1 

56121 

0 

OOOOj, 

1 

7OI2I 

1 

20142 

1 

7110 

56140 

1 

00006 

1 

7OIZI 

1 

20141 

1 

00002 

0 

37653 

0 

56142 

0 

60000 

1 

7120 

54001 

1 

00002 

0 

60141 

0 

54141 

1 

00002 

0 

60140 

1 

64140 

0 

00002 

0 

7130 

54105 

1 

OV002 

0 

37645 

1 

54122 

1 

00006 

1 

22123 

1 

O7O66 

0 

52144 

1 

7160 

52141 

1 

52115 

0 

30142 

0 

54II6 

0 

30122 

0 

26102 

0 

O7O66 

0 

52142 

1 

7150 

20116 

0 

60140 

1 

60114 

0 

54114 

1 

17156 

0 

54105 

1 

52146 

0 

52141 

1 

7160 

30122 

0 

26102 

0 

O7O56 

0 

52116 

0 

20142 

1 

60140 

1 

60114 

0 

54140 

0 

7170 

00123 

1 

54105 

1 

00123 

1 

37662 

1 

54102 

0 

5OOO2 

0 

30000 

1 

54124 

1 

t20o 

<,0000 

1 

60002 

0 

54125 

0 

54103 

1 

00006 

1 

5OOOO 

1 

3OOO4 

0 

52141 

1 

7210 

52107 

0 

I72I5 

1 

54124 

1 

47645 

0 

26103 

1 

07066 

0 

00006 

1 

5OIO3 

0 

7220 

30002 

0 

20141 

1 

10124 

1 

17212 

0 

50125 

1 

OOOO5 

1 

00006 

1 

22II4 

0 

7230 

06710 

1 

17235 

0 

17255 

0 

47626 

0 

17236 

0 

37626 

1 

54115 

0 

00006 

1 

7240 

24000 

1 

60142 

0 

54142 

1 

37653 

0 

60115 

1 

60141 

0 

54141 

1 

37653 

0 

7250 

60115 

1 

6V140 

1 

54140 

0 

54141 

1 

00114 

0 

54142 

1 

17252 

1 

54121 

1 

7260 

00006 

1 

70142 

1 

54142 

1 

37653 

0 

56141 

0 

00006 

1 

70121 

1 

20142 

1 

7270 

56140 

1 

00006 

1 

70121 

1 

20141 

1 

00002 

0 

07132 

0 

37653 

0 

I6OI3 

1 

7300 

37645 

1 

54124 

1 

I73O6 

1 

4765O 

1 

54124 

1 

36162 

1 

54122 

1 

O7475 

0 

7310 

O7I34 

0 

00006 

1 

3OIO7 

1 

S2l4l 

1 

52120 

0 

OOOOf, 

1 

30111 

0 

52144 

1 

7320 

00006 

1 

30113 

1 

52I46 

0 

30124 

0 

26102 

0 

07l34 

0 

52107 

0 

52141 

1 

7330 

52111 

1 

52144 

1 

52113 

0 

52146 

0 

30124 

0 

26102 

0 

07134 

0 

52120 

0 

7340 

52141 

1 

52146 

0 

52111 

1 

52144 

1 

l6°l^ 

0 

10147 

1 

I7372 

1 

17372 

1 

7350 

O7O66 

0 

Ofll6 

0 

52144 

1 

52141 

1 

52144 

1 

O7O66 

0 

O7II6 

0 

52146 

0 

7360 

52141 

1 

52146 

0 

O7O66 

0 

O7II6 

0 

52141 

1 

52146 

0 

52144 

1 

52141 

1 

7370 

c^ 

0 

0 

07132 

0 

00006 

1 

30141 

0 

52144 

1 

07066 

0 

O7II6 

0 

37645 

1 
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octal  listing  of  paragraph  0 oiY,  WITH  PARITY  BIT  IN  BINARy  AT  THE  RIGHT  OF  EACH  wOROs  "e"  DENOTES  UNUSED  FixED  MEMORy. 


ALL  vALiD  words  ARE  1 

BASIC 

INSTRUCTIONS  EXCEPT  THOSE 

Marked  "i" 

(INTERPRETIVE 

operator 

! WORDS 

1)  OR 

n^i 

" (CONSTANTS), 

7400 

26102 

0 

00006 

1 

30144 

0 

52141 

1 

52146 

0 

O7O66 

0 

O7II6 

0 

376^5 

1 

7410 

26102 

0 

52144 

1 

52141 

1 

52144 

1 

O7O66 

0 

O7II6 

0 

52141 

1 

52146 

0 

7420 

52141 

1 

476A6 

0 

16013 

1 

00006 

1 

30146 

1 

52141 

1 

52107 

0 

O7O66 

0 

7430 

00006 

1 

40144 

1 

52141 

1 

52111 

1 

O7O66 

0 

37645 

1 

26102 

0 

00006 

1 

7440 

40146 

0 

52141 

1 

52146 

0 

O7O66 

0 

00006 

1 

3OIO7 

1 

52141 

1 

52113 

0 

7450 

O7O66 

0 

376A5 

1 

26102 

0 

00006 

1 

40107 

0 

52141 

1 

20146 

0 

00006 

1 

7460 

17462 

1 

O7OO6 

0 

O7O66 

0 

52111 

1 

52144 

1 

52141 

1 

20144 

1 

00006 

1 

7470 

17472 

0 

O7OO6 

0 

O7O66 

0 

52113 

0 

16753 

1 

00006 

1 

30141 

0 

52IO7 

0 

7500 

0 

0 

0 

0 

0^ 

1 

30144 

0 

52111 

1 

OOOOt, 

1 

30146 

1 

52113 

0 

00002 

0 

O7O66 

0 

75lO 

16014 

0 

07066 

0 

07115 

0 

16014 

0 

00006 

1 

5OIO2 

1 

30001 

0 

17524 

1 

7520 

00006 

1 

50102 

1 

30001 

0 

52I4I 

1 

52115 

0 

37653 

0 

54004 

1 

12332 

0 

7530 

30102 

1 

54152 

0 

16014 

0 

37653 

0 

54004 

1 

12153 

0 

36027 

1 

54OO4 

1 

7540 

12174 

0 

19147 

1 

17553 

1 

I7553 

1 

00006 

1 

5OIO2 

1 

30001 

0 

5ZII5 

0 

7550 

37653 

0 

54004 

1 

12576 

0 

00006 

1 

50102 

1 

30003 

1 

52144 

1 

00006 

1 

7560 

50102 

1 

30005 

1 

52146 

0 

47646 

0 

54147 

1 

00006 

1 

50102 

1 

3OOO1 

0 

7570 

52141 

1 

11547 

1 

50102 

1 

10000 

0 

16014 

0 

17577 

1 

17605 

1 

50102 

1 

7600 

10001 

1 

16014 

0 

16014 

0 

I76O5 

1 

UOIA 

0 

0000^ 

1 

4OI4I 

1 

52141 

1 

76l0 

10147 

1 

17622 

1 

17622 

1 

00006 

1 

4OI44 

1 

52I44 

1 

00006 

1 

4DI46 

0 

7620 

52146 

0 

16014 

0 

40142 

1 

54142 

1 

16014 

0 

Cl 

37777 

1 

Cl 

37777 

1 

C!  57777 

1 

7630  c; 

40000 

0 

Cl 

20000 

0 

c: 

10000 

0 

c: 

04000 

0 

Cl 

02000 

0 

Cl 

OlOOO 

0 

Cl 

00400 

0 

C!  OO2O0 

0 

7640  c! 

00100 

0 

C! 

00040 

0 

c: 

00020 

0 

c; 

00010 

0 

C! 

00004 

0 

Cl 

00002 

0 

c» 

00001 

0 

Cl  00013 

0 

7650  cS 

00012 

1 

C! 

00011 

1 

C! 

00007 

0 

C8 

00000 

1 

cs 

77777 

0 

Cl 

77776 

1 

Cl 

77775 

1 

Cl  00031 

0 

7660  C! 

40014 

0 

Cl 

40015 

1 

Cl 

00106 

0 

0 

0 

0 

0 

0 

7670 

@ 

0 

0 

0 

0 

0 

0 

0 

7700 

§ 

0 

0 

0 

0 

0 

0 

0 

7710 

s 

0 

0 

0 

0 

0 

0 

0 

7720 

s 

0 

0 

0 

0 

0 

0 

0 

7730 

(? 

0 

0 

0 

0 

0 

0 

0 

77^0 

0 

0 

0 

0 

0 

0 

0 

0 

7750 

0 

0 

0 

0 

0 

0 

0 

0 

7760 

0 

0 

0 

0 

0 

0 

0 

0 

7770 

0 

0 

0 

0 

0 

0 

0 

0 
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octal  listing  of  paragraph  # 020*  WITH  PARITY  BIT  iN  BINARY  AT  THE  RIGHT  OF  EACH  WOrD^  "e"  DENOTES  UNuSED  FjxED  MEMORy. 

All  valid  words  are  basic  instructions  excert  thqse  marked  "I"  (Interpretive  operator  woRdsi  oR  "C"  (Cqnstants). 


00*2000 

36162 

1 

7V020 

1 

54021 

0 

10020 

1 

12062 

0 

Cj  000z4 

1 

50021 

1 

3T631 

1 

00*2010 

54121 

1 

10020 

1 

02031 

1 

1&014 

0 

30121 

0 

OOOOft 

1 

70142 

1 

54142 

1 

00*2020 

30121 

0 

00006 

1 

70140 

0 

52141 

1 

30121 

0 

00006 

1 

70001 

1 

20142 

1 

00*2030 

16014 

0 

30142 

0 

00006 

1 

70121 

1 

56141 

0 

000O6 

1 

70121 

1 

56141 

0 

00*20AO 

60001 

0 

0 

0 

0 

0 

*o 

1 

54142 

1 

I2O45 

0 

26141 

1 

37653 

0 

54142 

1 

66140 

1 

00*2050 

00006 

1 

7V121 

1 

20141 

1 

00002 

0 

30121 

0 

00006 

1 

70141 

1 

54141 

1 

00*2060 

56001 

0 

12041 

1 

3OOZI 

1 

54121 

1 

00006 

1 

30142 

0 

20142 

1 

60140 

1 

00*2070 

60140 

1 

5^140 

0 

12074 

1 

54105 

1 

10121 

1 

12063 

1 

IOO2O 

1 

O7H5 

0 

00*2100 

160U 

0 

160U 

0 

37652 

1 

7OOZO 

1 

54121 

1 

IOO2O 

1 

12126 

1 

C;  00176 

1 

00*2110 

50121 

0 

37631 

1 

54121 

1 

O2O54 

1 

52141 

1 

52144 

1 

52141 

1 

02054 

1 

00*2120 

52141 

1 

52146 

0 

52141 

1 

02054 

1 

17364 

0 

54121 

1 

00006 

1 

30141 

0 

00*2130 

20141 

1 

00006 

1 

12134 

1 

O7OO6 

0 

00006 

1 

30144 

0 

20144 

1 

00006 

1 

00*2140 

12142 

0 

0f006 

0 

00006 

1 

30146 

1 

20146 

0 

0000^ 

1 

12150 

0 

O7OO6 

0 

00*2150 

10121 

1 

12125 

1 

16014 

0 

54121 

1 

06710 

1 

12157 

1 

12172 

0 

30140 

1 

00*2160 

12167 

1 

24121 

0 

00006 

1 

30142 

0 

20142 

1 

60140 

1 

26140 

0 

60000 

1 

00*2170 

54000 

0 

12161 

1 

40121 

1 

16626 

1 

70102 

0 

lOOOO 

0 

12204 

1 

37635 

0 

00*2200 

70102 

0 

10000 

0 

07115 

0 

160i4 

0 

54121 

1 

37637 

1 

00006 

1 

7O1O2 

0 

00*2210 

76l65 

1 

50000 

1 

12213 

1 

12312 

1 

12321 

1 

12316 

0 

10147 

1 

12257 

1 

00,2220 

12257 

1 

30121 

0 

62273 

0 

00006 

1 

62110 

0 

67655 

0 

54121 

1 

37653 

0 

00,2230 

54001 

1 

5O140 

1 

56l4l 

0 

02252 

0 

20I4I 

1 

56l‘>3 

1 

56144 

0 

02252 

0 

00,2240 

20144 

1 

56145 

1 

56146 

1 

02252 

0 

20146 

0 

10121 

1 

12222 

0 

136U 

0 

00,2250 

C:  04604 

1 

16014 

0 

60000 

1 

54142 

1 

37653 

0 

56001 

0 

00002 

0 

30121 

0 

00,2260 

62273 

0 

00006 

1 

62302 

1 

67655 

0 

54121 

1 

37653 

0 

56140 

1 

56141 

0 

00,2270 

54142 

1 

10121 

1 

02260 

1 

C;  77763 

0 

C:  22650 

1 

37635 

0 

70102 

0 

10000 

0 

00,2300 

O7II5 

0 

16014 

0 

50121 

0 

37631 

1 

54121 

1 

37635 

0 

7OIO2 

0 

lOooo 

0 

00,2310 

12012 

1 

12014 

1 

40121 

1 

62107 

0 

54121 

1 

12216 

1 

40121 

1 

62107 

0 

00*2320 

54121 

1 

10147 

1 

12325 

0 

12325 

0 

12126 

1 

37641 

0 

00006 

1 

7OIO2 

0 

00,2330 

54020 

1 

12064 

0 

47646 

0 

54122 

1 

54123 

0 

54124 

1 

10114 

1 

12366 

1 

00*23^,0 

12342 

1 

12362 

0 

56115 

1 

56114 

0 

56I4I 

0 

56I4O 

1 

00006 

1 

12351 

0 

00,2350 

12355 

1 

IOII4 

1 

12366 

1 

12355 

1 

12362 

0 

37626 

1 

54I4O 

0 

02552 

1 

00,2360 

37646 

1 

1 f060 

1 

00006 

1 

40115 

0 

52115 

0 

24122 

0 

IOI4O 

0 

I24O3 

0 

00,2370 

12372 

1 

12377 

1 

lOUl 

1 

12403 

0 

16014 

0 

12377 

1 

16014 

0 

OOOOj, 

1 

275690  yUL  system  FOR  SLK2: 

REVISION 

0 OF  PROCiRAM  rExrED44  By 

NAsA 

2021100 

JUL  9, 

1965 

PAGE  2R3 

oct^l  listing 

OF  paragraph  « 

021*  WITH 

parity  bit  in 

binary  at 

THE 

right  of  each 

wORDs  "e"  denotes  unused  fixed  memory. 

ALL  valid  WqROS  ARE  1 

9ASIC  INSTRUCTIONS 

EXCEpT  THoSE 

MARKED  "I" 

(iNTERpRETIVE  OpERATqR  WqNDS)  qR 

"C"  (Constants) 

• 

00  «2AOO 

40141 

1 

521A1  1 

24122  0 

40140 

0 

67655  0 

60114  0 

lOOOO  0 

12451 

1 

00.2AIO  ri 

60001 

0 

12412  0 

37631  1 

60000 

1 

60141  0 

54141  1 

37653  0 

67626 

1 

00«2<)20 

261A0 

0 

37631  1 

60000  1 

60115 

1 

54115  0 

37653  0 

67626  1 

26lU 

1 

00«2430 

40140 

0 

60114  0 

10000  0 

12451 

1 

CJ  00117  0 

12355  1 

54124  1 

40141 

1 

00*2440 

60115 

1 

OOOOg  1 

62355  0 

12451 

1 

00006  1 

24123  1 

00006  1 

30115 

1 

00*2450 

20115 

0 

30114  0 

60000  1 

54OOO 

0 

12444  0 

52141  1 

50123  1 

O25O7 

1 

00*2460 

54142 

1 

16014  0 

22021  1 

00006 

1 

77631  0 

56001  0 

60021  1 

56001 

0 

00*2470 

12513 

0 

20001  1 

20001  1 

20001 

1 

20001  1 

2OOOI  1 

20001  1 

2OOOI 

1 

00*2500 

2OOOI 

1 

2OOO1  1 

2OOOI  1 

20001 

1 

2OOOI  1 

2OOO1  1 

52I4I  1 

10124 

1 

00*2510  Ci 

06552 

0 

12564  0 

52141  1 

00006 

1 

10114  1 

52141  1 

40140  0 

00006 

1 

00*2520 

70115 

0 

60141  0 

54000  0 

I253O 

1 

00006  1 

60114  0 

24140  1 

12532 

0 

00*2530 

00006 

1 

62542  0 

00006  1 

60114 

0 

00006  1 

12540  0 

00006  1 

62546 

1 

00*2540 

24140 

1 

1<!547  1 

00006  1 

12552 

0 

00006  1 

26150  0 

60114  0 

22OO7 

0 

00*2550 

00006 

1 

10114  1 

54141  1 

10122 

1 

00002  0 

00002  0 

00002  0 

00006 

1 

00*2560 

40141 

1 

5Z141  1 

37653  0 

00002 

0 

4OI4O  0 

60114  0 

00006  1 

12571 

1 

00*2570 

12512 

1 

37626  1 

54140  0 

40115 

0 

60141  0 

12546  0 

47646  0 

54123 

0 

00*2600 

54113 

0 

10114  1 

12637  0 

12605 

1 

12633  1 

56115  1 

56114  0 

561^1 

0 

00*2610 

56140 

1 

00006  1 

1261‘t  1 

12355 

1 

56144  0 

56143  1 

00006  1 

12621 

1 

00*2620 

12355 

1 

5“146  1 

56145  1 

00006 

1 

12626  0 

12355  1 

10114  1 

12637 

0 

00*2630 

12355 

1 

12633  1 

12355  1 

00006 

1 

40115  0 

52115  0 

24113  1 

37631 

1 

00*26A0 

60000 

1 

60115  1 

54115  0 

37653 

0 

67626  1 

26114  1 

56ll7  0 

30115 

1 

00*2650 

54120 

0 

12657  0 

00006  1 

24123 

1 

00006  1 

3OII5  1 

20115  0 

3OIU 

0 

00*2660 

60000 

1 

54000  0 

12652  0 

02675 

1 

52144  1 

52141  1 

52144  1 

02675 

1 

00*2670 

52146 

0 

52141  1 

52146  0 

02675 

1 

1736A  0 

30113  1 

54122  1 

10140 

0 

00*2700 

127JLA 

0 

U703  0 

I27l0  1 

10141 

1 

127i4  0 

OOOO2  0 

12^10  1 

OOOO2 

0 

00*2710 

00006 

1 

40141  1 

52141  1 

24122 

0 

47646  0 

54124  1 

4OI4O  0 

6OII7 

0 

00*2720 

00006 

1 

62725  0 

52141  1 

50123 

1 

12507  0 

37631  1 

60000  1 

60141 

0 

00*2730 

54141 

1 

37653  0 

67626  1 

26140 

0 

40140  0 

6OII7  0 

10000  0 

12722 

0 

00*2740  r| 

32506 

0 

12355  1 

54124  1 

4OI4I 

1 

60120  1 

0000^  1 

62355  0 

I27Z2 

0 

00*2750 

07475 

0 

03236  0 

00006  1 

30141 

0 

50104  1 

52043  1 

03262  1 

10140 

0 

00*2760 

12762 

1 

12355  1 

43063  0 

60121 

0 

10000  0 

4OOOO  0 

13044  0 

12776 

1 

00*2770 

43062 

1 

54121  1 

3OI4O  1 

S4001 

1 

37653  0 

13023  1 

10121  1 

I3OO5 

0 
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octal  listing  of  paragraph  # o2Z,  WITH  PARITY  BIT  IN  BlNARy  AT  THE  RIGHT  OF  EACH  wORDs  "e"  DEimOTES  IJNUSED  FlyED  MEMORY. 


ALL  VALID  WORDS  ARE  BASjC  INSTRUCTIONS  EXCEPT  ThOSe  MARKED  "l"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


00.3000 

42005 

1 

54121 

1 

00006 

1 

30141 

0 

13023 

1 

40000 

0 

54121  1 

4OOOO 

0 

00.3010 

50000 

1 

37631 

1 

54114 

1 

00006 

1 

70141 

1 

56114 

0 

00006  1 

70140 

0 

00.3020 

56001 

0 

60114 

0 

55OOI 

0 

50104 

1 

52045 

1 

47646 

0 

54124  1 

52IO7 

0 

00.3030 

52141 

1 

52115 

0 

03069 

0 

52111 

1 

52I4I 

1 

52144 

1 

03064  0 

52113 

0 

00.3040 

52141 

1 

52146 

0 

03064 

0 

1?364 

0 

54121 

1 

37653 

0 

56107  1 

56106 

0 

00.3050 

56111 

0 

56110 

1 

56113 

1 

56112 

0 

40121 

1 

50000 

1 

37631  1 

OOOOf, 

1 

00.3060 

70140 

0 

12773 

1 

Cl  00015 

0 

c:  00016 

0 

IOI4O 

0 

13103 

1 

13070  1 

13075 

1 

00.3070 

10141 

1 

13103 

1 

00002 

0 

13075 

1 

00002 

0 

47653 

1 

54122  1 

00006 

1 

00.3100 

40141 

1 

SOIZI 

0 

I25O7 

0 

54122 

1 

52U1 

1 

50121 

0 

12507  0 

O32I7 

0 

00.3110 

16014 

0 

07115 

0 

37653 

0 

16013 

1 

10147 

1 

13144 

1 

13144  1 

03236 

0 

00.3120 

22147 

0 

00006 

1 

30141 

0 

50104 

1 

52043 

1 

03262 

1 

10121  1 

13131 

0 

00.3130 

16014 

0 

62273 

0 

00006 

1 

63137 

1 

22007 

0 

22102 

1 

12263  0 

50121 

0 

00.3140 

37530 

0 

54121 

1 

37653 

0 

I2OI7 

1 

06710 

1 

16°14 

0 

l6°14  0 

l76°5 

1 

OO.3I5O 

47644 

1 

26152 

0 

00006 

1 

3OOOO 

1 

30003 

1 

52I44 

1 

00006  1 

5OI52 

1 

00.3160 

30001 

0 

52146 

0 

47646 

0 

16013 

1 

03236 

0 

37653 

0 

16013  1 

00006 

1 

00.3170 

30141 

0 

50152 

1 

52001 

1 

50147 

0 

36164 

1 

26152 

0 

10147  1 

13212 

1 

00.3200 

16014 

0 

00006 

1 

30144 

0 

50152 

1 

51775 

0 

000O6 

1 

30146  1 

5OI52 

1 

00.3210 

5I777 

1 

I0OI4 

0 

30142 

0 

16557 

1 

50104 

1 

30052 

0 

l665l  1 

30141 

0 

00.3220 

00006 

1 

70000 

0 

54142 

1 

37653 

0 

56141 

0 

OOOO6 

1 

7OI4O  0 

20001 

1 

00.3230 

20142 

1 

5O140 

1 

00006 

1 

7OOOO 

0 

20141 

1 

00002 

0 

00006  1 

22123 

1 

00.3240 

O32I7 

0 

52I44 

1 

5214! 

1 

5ZII5 

0 

30U2 

0 

54II6 

0 

03217  0 

52142 

1 

00.3250 

20116 

0 

60140 

1 

60114 

0 

54114 

1 

13256 

1 

54105 

1 

52146  0 

5Z141 

1 

00.3260 

03217 

0 

1 f 163 

0 

37653 

0 

54121 

1 

IOI4O 

0 

13322 

0 

13270  0 

I33I2 

0 

00.3270 

56142 

0 

56141 

0 

54140 

0 

37652 

1 

54I2I 

1 

10140 

0 

13322  0 

I33O1 

1 

OO.33OO 

13315 

1 

56141 

0 

54I4O 

0 

3765Z 

1 

26121 

1 

lOUO 

0 

13322  0 

OOOO2 

0 

00.3310 

13315 

1 

00002 

0 

10000 

0 

13321 

0 

IOI4I 

1 

37653 

0 

13365  0 

13321 

0 

00.3320 

13365 

0 

0»3Z1 

1 

62410 

0 

00006 

1 

6337° 

0 

52141 

1 

22021  1 

OOOO5 

1 

00.3330 

77631 

0 

52141 

1 

56021 

1 

26141 

1 

32274 

1 

00006 

1 

7OUO  0 

62510 

1 

00«33<,0 

54II4 

1 

00006 

1 

lOll^, 

1 

00006 

1 

7763I 

0 

26U4 

1 

00006  1 

77631 

0 

00.3350 

52141 

1 

00006 

1 

10114 

1 

54115 

0 

37653 

0 

56001 

0 

00006  1 

lOlU 

1 

00.3360 

54OOI 

1 

30115 

1 

20141 

1 

10000 

0 

37626 

1 

54140 

0 

54141  1 

OOOO2 

0 

00.3370 

57632 

1 

0yo06 

1 

63414 

0 

52141 

1 

22021 

1 

00006 

1 

77631  0 

52141 

1 
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OCTAL  listing  OF  PARAGRAPH  A 023*  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  wORD<i  "P"  DEMOTES  UNUSED  FIXED  MEMORy. 


All  valid 

WORDS  ARE  1 

BASIC 

instructions 

EXCEpT  THqSE 

marked  "I" 

(iNTERpRETIVE 

OpERAToR  WORDS)  qR 

"C 

" (Constants), 

0013400 

56021 

1 

26141 

1 

32740 

0 

00006 

1 

70140 

0 

62250 

1 

13340 

1 

00006 

1 

00«34l0 

30142 

0 

20142 

1 

60140 

1 

26U0 

0 

24121 

0 

00006 

1 

30142 

0 

20142 

1 

00(3420 

60140 

1 

26140 

0 

60000 

1 

54022 

0 

10022 

0 

10022 

0 

13407 

0 

13334 

1 

00*3430 

13402 

0 

O67IO 

1 

13435 

1 

I344O 

0 

I344O 

0 

00006 

1 

40141 

1 

52141 

1 

00*3440 

37632 

1 

26140 

0 

62141 

1 

20001 

1 

54OOO 

0 

13450 

1 

00006 

1 

4OOOI 

1 

00*3450 

52141 

1 

30140 

1 

60000 

1 

54OOI 

1 

13465 

1 

5OOOO 

1 

37630 

0 

60000 

1 

00*3460 

00006 

1 

60140 

1 

54140 

0 

40141 

1 

54141 

1 

00006 

1 

30141 

0 

52120 

0 

00*3470 

03217 

0 

O7I73 

0 

Cl 

00003 

1 

c: 

l444l 

0 

Cl  37325 

1 

Cl  53250 

0 

Cl 

60764 

1 

Cl  12146 

1 

00*3500 

c: 

21276 

1 

c: 

75466 

1 

c: 

7I47I 

0 

c; 

00236 

0 

Cl  32757 

0 

32434 

0 

07065 

0 

00006 

1 

00*3510 

30142 

0 

20142 

1 

6OI4O 

1 

26U0 

0 

00006 

1 

3OU2 

0 

2OI42 

1 

60140 

1 

00*3520 

26140 

0 

16014 

0 

33543 

0 

13525 

1 

33625 

0 

54122 

1 

06710 

1 

13537 

1 

00*3530 

13640 

1 

00006 

1 

40141 

1 

52141 

1 

32247 

1 

56122 

0 

54123 

0 

47631 

0 

00*3540 

60140 

1 

10000 

0 

13633 

0 

13621 

0 

13554 

1 

10141 

1 

37653 

0 

13551 

1 

00*3550 

13554 

1 

54141 

1 

54140 

0 

00122 

0 

00006 

1 

40141 

1 

67631 

1 

52141 

1 

00*3560 

52120 

0 

03262 

1 

10121 

1 

13626 

1 

52141 

1 

52120 

0 

52141 

1 

07173 

0 

00*3570 

Cl 

00006 

1 

c: 

13240 

0 

c; 

23630 

0 

c; 

74721 

0 

Cl  47775 

1 

Cl  02440 

0 

Cl 

20237 

0 

C:  75067 

1 

00*3600 

cs 

70742 

1 

C! 

03436 

0 

c: 

26756 

1 

c: 

74037 

0 

Cl  57640 

1 

Cl  03046 

0 

Cl 

07143 

0 

Cl  76654 

1 

00*3610 

Cl 

42244 

0 

32434 

0 

07065 

0 

00122 

0 

00006 

1 

40141 

1 

67631 

1 

52141 

1 

00*3620 

00123 

1 

0V006 

1 

40141 

1 

67632 

1 

52141 

1 

16014 

0 

5OOOO 

1 

37631 

1 

00*3630 

54121 

1 

02054 

1 

13564 

1 

10000 

0 

13636 

0 

13551 

1 

I355I 

1 

03637 

0 

00*3640 

37632 

1 

13552 

1 

@ 

e 

6 

e 

S 

@ 

00*3650 

e 

e 

e 

§ 

e 

e 

@ 

00*3660 

« 

s 

e 

§ 

s 

e 

00*3670 

e 

e 

e 

e 

e 

e 

§ 

00*3700 

s 

e 

e 

e 

e 

e 

s 

e 

00*3710 

e 

@ 

e 

e 

e 

e 

e 

00*3720 

|9 

@ 

@ 

e 

e 

e 

e 

6 

00*3730 

5 

s 

e 

s 

e 

e 

e 

e 

00*3740 

e 

@ 

e 

e 

e 

e 

e 

00*3750 

@ 

e 

e 

e 

e 

e 

e 

§ 

00*3760 

e 

@ 

e 

e 

s 

e 

e 

00*3770 

e 

e 

e 

e 

e 

e 

§ 

@ 
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octal  listing 

OF  PARAGRAPH 

# 024,  WITH 

parity  bit  IN 

Binary  at 

THE 

RIGHT  OF  each 

wOrDs  "e" 

denotes 

UNUSEC 

1 FlxED  memory* 

ALL  valid 

wORdS  are  I 

3ASIC 

INSTRUCTIONS 

EXCePT  those 

Marked  "i" 

(INTERPRETIVE 

Operator  words ) or 

"C 

" (CONSTANTS). 

01«2000 

02061 

1 

30103 

0 

50119 

0 

59046 

1 

16019 

0 

02061 

1 

40103 

1 

02002 

1 

01(2010 

02061 

1 

5UIO2 

1 

30000 

1 

12002 

0 

02061 

1 

5OIO2 

1 

4OOOO 

0 

12002 

0 

01(2020 

02061 

1 

50114 

0 

30046 

0 

16626 

1 

02061 

1 

5OIO2 

1 

30000 

1 

5OII4 

0 

01(2030 

56046 

0 

16626 

1 

02061 

1 

50102 

1 

30000 

1 

50119 

0 

26046 

1 

16019 

0 

01(2040 

02061 

1 

30103 

0 

12035 

1 

02061 

1 

50102 

1 

4OOOO 

0 

12035 

1 

02061 

1 

01(2050 

50114 

0 

40096 

1 

50119 

0 

60046 

0 

00006 

1 

66019 

1 

50114 

0 

56096 

0 

01(2060 

16650 

0 

30104 

1 

59119 

1 

10020 

1 

29119 

0 

00002 

0 

00002 

0 

10020 

1 

01(2070 

30103 

0 

l?i05 

0 

10190 

0 

16019 

0 

16650 

0 

16019 

0 

16650 

0 

IOIO5 

1 

01 (2100 

12102 

06710 

1 

16019 

0 

59105 

1 

IOO2O 

1 

I2O7O 

0 

Cl 

OO36O 

1 

16650 

0 

IOO2O 

1 

01(2110 

1 

16019 

0 

16650 

0 

16019 

0 

IOO2O 

1 

12123 

1 

Cl 

12000 

1 

O67IO 

1 

01(2120 

16014 

0 

16019 

0 

16650 

0 

06710 

1 

16650 

0 

16650 

0 

16014 

0 

10020 

1 

01(2130 

16643 

1 

C!  00017 

1 

50109 

1 

30052 

0 

16626 

1 

32131 

0 

7OIO3 

1 

5OOOO 

1 

01(2140 

37630 

0 

59115 

0 

37637 

1 

00006 

1 

70103 

1 

59119 

1 

00004 

0 

5OOOO 

1 

01(2150 

30620 

0 

59002 

1 

37639 

1 

00006 

1 

70103 

1 

72215 

1 

50000 

1 

12160 

0 

01(2160 

30115 

1 

00006 

1 

04002 

1 

12172 

0 

30115 

1 

00006 

1 

06002 

0 

12172 

0 

01(2170 

40115 

0 

7VOO2 

1 

50119 

0 

59620 

1 

00003 

1 

37632 

1 

00006 

1 

7OIO3 

1 

01(2200 

72215 

1 

5OOOO 

1 

12203 

0 

4OOO2 

1 

70115 

0 

loooo 

0 

12216 

1 

1&702 

0 

01(2210 

12216 

1 

e 

e 

30002 

0 

12209 

1 

Cl 

00014 

1 

24I5O 

0 

I6OI4 

0 

01(2220 

54626 

1 

10269 

0 

12239 

1 

IO34O 

1 

12239 

1 

10419 

1 

12234 

1 

IO47O 

0 

01(2230 

12234 

1 

10549 

0 

12239 

1 

02233 

1 

67695 

1 

22007 

0 

50000 

1 

21777 

0 

01 (2240 

26632 

1 

37653 

0 

59635 

0 

32250 

1 

59627 

0 

50635 

1 

10153 

1 

12310 

0 

01,2250 

Ci 

00006 

1 

12310 

0 

30632 

0 

50635 

1 

59153 

1 

72503 

1 

50635 

1 

59152 

0 

01(2260 

10635 

0 

12275 

1 

54105 

1 

30152 

1 

59109 

0 

10067 

1 

12275 

1 

01(2270 

59067 

1 

52639 

1 

52l5l 

0 

19210 

1 

52639 

1 

50635 

1 

52151 

0 

01(2300 

50067 

0 

90153 

1 

60632 

0 

00006 

1 

69210 

0 

30635 

1 

59067 

1 

I92l0 

1 

01(2310 

32416 

0 

26635 

0 

10627 

0 

12299 

0 

02319 

0 

52I5I 

0 

50067 

0 

52151 

0 

01(2320 

52151 

0 

52191 

1 

500ft7 

0 

5219! 

1 

52I9I 

1 

52193 

0 

50067 

0 

5ZI93 

0 

01(2330 

52143 

0 

52195 

0 

50067 

0 

52195 

0 

52195 

0 

52197 

1 

50067 

0 

52197 

1 

01 *23^0 

52197 

1 

37653 

0 

56105 

0 

00006 

1 

I23A7 

1 

90152 

0 

59152 

0 

52153 

1 

01(2350 

50067 

0 

52153 

1 

52153 

1 

10152 

0 

37653 

0 

12362 

0 

4OI52 

0 

59152 

0 

01(2360 

37696 

1 

56105 

0 

59067 

1 

00003 

1 

52151 

0 

00006 

1 

62370 

1 

52006 

0 

01(2370 

40000 

0 

59150 

1 

36232 

1 

7OOOI 

1 

16011 

0 

00004 

0 

90153 

1 

59153 

1 
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octal  listing  of  paragraph  « 025»  with  parity  bit  in  binary  at  the  right  of  each  wOrDs  "s"  denotes  unused  fixed  memory. 
All  valid  woRDs  are  basic  instructions  excert  thqSe  marked  "I"  (interrREtive  opERAToR  wqRDS)  qR  "C"  (Constants). 


01»2A00 

36O27 

1 

70006 

0 

59151 

0 

97653 

1 

59115 

0 

129/5 

1 

59626 

1 

37653 

0 

01.2410 

54635 

0 

32250 

1 

59627 

0 

50635 

1 

10153 

1 

12920 

1 

Cl  00019 

1 

12927 

0 

01.2420 

32416 

0 

26635 

0 

10627 

0 

12912 

0 

97696 

0 

59635 

0 

19210 

1 

90633 

0 

01.2430 

50635 

1 

60150 

0 

00006 

1 

12935 

0 

12920 

1 

50635 

1 

90153 

1 

50635 

1 

01.2440 

54153 

1 

96232 

0 

70633 

0 

67639 

1 

56633 

1 

76232 

0 

50635 

1 

60151 

1 

01.2450 

54639 

1 

10635 

0 

12275 

1 

12265 

0 

59I5O 

1 

37653 

0 

59119 

1 

325O3 

0 

01.2460 

70153 

1 

60632 

0 

59153 

1 

40000 

0 

12909 

1 

00004 

0 

97653 

1 

59II5 

0 

01.2470 

56153 

0 

72503 

1 

10000 

0 

50000 

1 

59OOO 

0 

10167 

0 

02592 

0 

e 

01.2500 

12501 

0 

IV2O3 

1 

02592 

0 

Cl  00777 

0 

12505 

1 

10217 

1 

02592 

0 

C! 

67629 

0 

01.2510 

12511 

1 

10233 

1 

02592 

0 

ff 

12615 

0 

10247 

1 

02592 

0 

e 

01.2520 

12521 

1 

10263 

1 

02592 

0 

e 

12525 

0 

10115 

0 

e 

01.2530 

12532 

0 

19215 

1 

10119 

1 

12535 

1 

12363 

1 

5OOOO 

1 

27777 

0 

625O7 

1 

01  .25A0 

54067 

1 

12315 

0 

59116 

0 

60115 

1 

10000 

0 

40116 

0 

12552 

0 

12550 

1 

01.2550 

50002 

0 

00002 

0 

59115 

0 

00006 

1 

22119 

0 

50114 

0 

00002 

0 

59625 

1 

01.2560 

40026 

1 

6J562 

1 

10000 

0 

66042 

1 

90000 

0 

62657 

1 

60002 

0 

10000 

0 

01.2570 

61400 

1 

12625 

0 

125/3 

0 

40002 

1 

67631 

1 

67631 

1 

56026 

0 

67630 

0 

01.2600 

6OOO2 

0 

00006 

1 

22007 

0 

57900 

1 

57901 

0 

57902 

0 

57903 

1 

57904 

0 

01.2610 

30&30 

1 

50002 

0 

12613 

0 

53906 

0 

53910 

1 

53912 

0 

53919 

0 

53416 

1 

01.2620 

53420 

1 

69267 

0 

00006 

1 

19262 

1 

12663 

1 

lOOOO 

0 

61901 

0 

12633 

1 

01.2630 

67696 

1 

02669 

1 

Cl 

00001 

0 

10000 

0 

61902 

0 

12691 

1 

67696 

1 

02664 

1 

01.2640 

c:  00002 

0 

10000 

0 

61903 

1 

12697 

1 

67696 

1 

02669 

1 

Cl  00003 

1 

10000 

0 

01.2650 

61909 

0 

lf655 

1 

67696 

1 

02669 

1 

Ci  00009 

0 

lOOOO 

0 

12663 

1 

C: 

50001 

0 

01.2660 

67696 

1 

02669 

1 

Cl 

00005 

1 

02663 

0 

59631 

1 

50002 

0 

30000 

1 

59002 

1 

01.2670 

37696 

1 

69631 

0 

50002 

0 

27377 

1 

90631 

1 

50002 

0 

12603 

1 

OOOO4 

0 

OI.27OO 

37653 

0 

59721 

1 

597I5 

0 

37630 

0 

59675 

1 

97632 

0 

00006 

1 

03013 

0 

OI.27IO 

97693 

0 

00006 

1 

03011 

1 

32722 

1 

59003 

0 

37653 

0 

55O47 

1 

02/23 

0 

01.2720 

19215 

1 

O47I5 

0 

C; 

01400 

1 

56002 

0 

59119 

1 

37626 

1 

59026 

1 

5902/ 

0 

01.2730 

37627 

0 

55909 

1 

55403 

0 

55902 

1 

55901 

1 

55900 

0 

99267 

1 

559O5 

0 

01.2740 

559O7 

1 

559II 

0 

55913 

1 

55915 

1 

55917 

0 

992/0 

1 

55406 

0 

559IO 

1 

01.2750 

55912 

0 

55919 

0 

55916 

1 

55920 

1 

97653 

1 

59I53 

1 

59167 

0 

59203 

1 

01.2760 

592I7 

1 

59233 

1 

59247 

1 

59263 

1 

59067 

1 

33O5O 

1 

59269 

0 

63051 

0 

01.2770 

59390 

1 

63051 

0 

54419 

1 

63051 

0 

5997O 

0 

63051 

0 

59599 

0 

376^6 

1 
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octal  listing  of  paragraph  a 026,  WITH  PARITY  BIT  iN  BINARY  AT  THE  RIGHT  OF  EACH  wOR^s  "e"  DEnOTES  UNUSED  FixED  MEMORy. 


ALL  valid 

WORDS  are 

3ASIC 

INSTRUCTIONS 

except  those 

marked  "I" 

(INTERPRETIVE 

operator  WORDS)  OR 

"c 

" (CONSTANTS). 

01,3000 

55020 

0 

37650 

0 

54140 

0 

47633 

1 

50140 

1 

54662 

1 

10140 

0 

03002 

0 

01,3010 

54045 

1 

54714 

1 

54651 

1 

54676 

1 

54653 

0 

5A655 

0 

54652 

1 

54660 

0 

01,3020 

54661 

1 

54677 

0 

54641 

0 

54642 

0 

54702 

0 

54703 

1 

54704 

0 

54620 

1 

01,3030 

54621 

0 

54622 

0 

54623 

1 

54705 

1 

37647 

0 

54656 

0 

43046 

1 

00006 

1 

01,3040 

03011 

1 

33047 

1 

55043 

0 

44506 

1 

54637 

1 

00114 

0 

Ci 

00164 

1 

Ci 

05010 

0 

01,3050 

C! 

00264 

1 

c: 

00054 

0 

54016 

1 

56002 

0 

54O12 

0 

37653 

0 

00006 

1 

01010 

1 

01*3060 

11020 

0 

03063 

1 

03072 

1 

37653 

0 

55O2O 

0 

33071 

1 

54027 

0 

04325 

1 

01,3070 

Cl 

37764 

0 

c: 

37765 

1 

33O7O 

0 

54027 

0 

10675 

1 

03104 

1 

03104 

1 

56675 

0 

01,3100 

7A5O3 

1 

54675 

1 

64346 

1 

03143 

1 

10656 

0 

O3IO7 

1 

04325 

1 

5‘»656 

0 

01,3110 

47653 

1 

54624 

0 

SSTl'f 

0 

6765^ 

1 

547IA 

1 

5O7I4 

0 

10662 

1 

IO7I4 

1 

01,3120 

03113 

1 

03132 

1 

Ci 

00012 

1 

10624 

0 

54656 

0 

04325 

1 

54624 

0 

01,3130 

33122 

0 

03114 

0 

67646 

1 

507l'» 

0 

54662 

1 

74503 

1 

54624 

0 

34475 

0 

01,3140 

50714 

0 

74333 

1 

60624 

1 

00006 

1 

OlOlO 

1 

55023 

0 

37626 

1 

54027 

0 

01,3150 

37646 

1 

55020 

0 

04325 

1 

54016 

1 

56°02 

0 

54012 

0 

04526 

1 

34473 

0 

01,3160 

00006 

1 

02015 

1 

67634 

1 

55024 

1 

34502 

1 

04131 

0 

Ci 

02002 

1 

Ci 

10001 

1 

01,3170 

34473 

0 

71024 

1 

50635 

1 

54140 

0 

04325 

1 

54016 

1 

56002 

0 

5A0I2 

0 

01,3200 

04526 

1 

34473 

0 

00006 

1 

02016 

1 

03162 

1 

54OI6 

1 

56002 

0 

54012 

0 

01,3210 

04526 

1 

37653 

0 

56045 

0 

54624 

0 

37644 

0 

00006 

1 

05011 

1 

34473 

0 

01,3220 

70624 

0 

56624 

1 

56021 

1 

54636 

0 

0327^ 

0 

74473 

1 

63311 

1 

03303 

1 

01,3230 

03274 

0 

74473 

1 

40000 

0 

03303 

1 

O327O 

1 

43241 

1 

60624 

1 

10000 

0 

01,3240 

O3247 

0 

Ci 

00022 

1 

032^7 

0 

47646 

0 

7O7I5 

0 

5ATI5 

0 

03253 

0 

37646 

1 

01,3250 

7O7I5 

0 

10000 

0 

04325 

1 

56624 

1 

67641 

0 

03162 

1 

O327O 

1 

476^f6 

0 

01,3260 

70715 

0 

676<>6 

1 

54715 

0 

37636 

0 

67634 

1 

55024 

1 

04325 

1 

04325 

1 

01,3270 

56636 

1 

60000 

1 

54021 

0 

00002 

0 

40021 

0 

40021 

0 

40021 

0 

4OO2I 

0 

01*3300 

4OO2I 

0 

40000 

0 

00002 

0 

60624 

1 

10000 

0 

03256 

0 

e 

03256 

0 

01*3310 

00002 

0 

Cl 

77740 

1 

Cl 

03777 

0 

e 

e 

e 

@ 

§ 

01*3320 

@ 

e 

e 

e 

@ 

s 

@ 

§ 

01*3330 

S 

e 

@ 

e 

e 

e 

e 

@ 

01*3340 

e 

e 

@ 

§ 

@ 

e 

e 

§ 

01*3350 

e 

s 

@ 

@ 

e 

e 

e 

01*3360 

s 

e 

s 

e 

e 

e 

@ 

S 

01*3370 

e 

e 

e 

e 

e 

e 

e 
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octal  listing  of  paragraph  # 040,  WITH  parity  bit  in  binary  at  the  right  of  each  words  "e»  denotes  unused  fixed  memory. 
ALL  valid  words  ARe  BASIC  INSTRUCTIONS  EXCEPT  THOSe  MaRKeD  "I"  (INTERPRETIVE  OPeRATOR  wORdS)  OR  "C"  (CONSTANTS). 


04i2000 

03432 

1 

03454 

1 

37646 

1 

56652 

0 

54101 

0 

56140 

1 

54103 

1 

50000 

1 

0412010 

02011 

0 

03253 

0 

02062 

1 

02062 

1 

02062 

1 

02062 

1 

02062 

1 

02062 

1 

04*2020 

02062 

1 

02053 

0 

02053 

0 

03253 

0 

03253 

0 

03253 

0 

03253 

0 

03253 

0 

04*2030 

03253 

0 

02060 

0 

02235 

1 

02343 

1 

03253 

0 

03253 

0 

03253 

0 

03253 

0 

04*2040 

03253 

0 

03253 

0 

03276 

1 

02267 

0 

02254 

0 

O2O5I 

1 

03253 

0 

02407 

0 

04*2050 

02250 

1 

04102 

0 

c: 

12003 

1 

36165 

0 

70640 

1 

10000 

0 

02062 

1 

03253 

0 

04.2060 

37653 

0 

54103 

1 

10637 

1 

02067 

1 

02067 

1 

02066 

0 

04205 

1 

02205 

1 

04*2070 

10655 

0 

37653 

0 

54655 

0 

02074 

0 

50103 

0 

34333 

0 

74473 

1 

54U0 

0 

04*2100 

30637 

0 

54127 

1 

O3I57 

1 

36165 

0 

7O64O 

1 

10000 

0 

02117 

1 

5O123 

1 

04*2110 

56641 

1 

54022 

0 

40022 

0 

40022 

0 

56022 

1 

60103 

0 

02134 

0 

5O123 

1 

04*2120 

56641 

1 

54140 

0 

37653 

0 

54141 

1 

37650 

0 

07257 

0 

56141 

0 

6OIO3 

0 

04*2130 

54141 

1 

02134 

0 

26140 

0 

02152 

0 

50123 

1 

54641 

0 

40637 

1 

50123 

1 

Oa  .2140 

62176 

0 

OOOOj, 

1 

12144 

0 

02173 

0 

36165 

0 

70640 

1 

10000 

0 

O2I52 

0 

04.2150 

40637 

1 

02174 

1 

07062 

1 

c; 

02203 

1 

36165 

0 

70640 

1 

5OOOO 

1 

02157 

0 

04.2160 

02164 

0 

00006 

1 

40142 

1 

52142 

1 

56142 

0 

50123 

1 

54644 

0 

56141 

0 

04.2170 

50123 

1 

54641 

0 

02150 

1 

10637 

1 

54637 

1 

04205 

1 

Cl  00022 

1 

Cl  00020 

0 

04.2200 

Cl  00012 

1 

C! 

00005 

1 

c: 

00000 

1 

c: 

O5 174 

0 

Cl 

13261 

0 

50637 

0 

32211 

1 

54123 

0 

04.2210 

00002 

0 

C! 

00004 

0 

c; 

00004 

0 

Cl 

00004 

0 

Cl 

00004 

0 

Cl 

00004 

0 

Cl  00003 

1 

Cl  00003 

1 

04.2220 

CS  00003 

1 

C! 

00003 

1 

Cl 

00003 

1 

Cl 

00002 

0 

Cl 

00002 

0 

Cl 

00002 

0 

Cl  00002 

0 

Cl  00002 

0 

04.2230 

6 

C! 

oyooi 

0 

c: 

00001 

0 

Cl 

00000 

1 

Cl 

00000 

1 

37653 

0 

54641 

0 

34506 

0 

04.2240 

54637 

1 

02517 

0 

37653 

0 

54640 

1 

54653 

0 

3441 7 

1 

54122 

1 

O42O5 

1 

04.2250 

376^3 

0 

54642 

0 

345O7 

1 

02240 

0 

02326 

1 

02313 

1 

37645 

1 

50123 

1 

04.2260 

67640 

1 

26640 

1 

10655 

0 

37653 

0 

54655 

0 

02266 

1 

04205 

1 

02326 

1 

04.2270 

02273 

0 

37646 

1 

02257 

0 

22002 

0 

02205 

1 

50123 

1 

32321 

0 

54IO7 

0 

04*23Q0 

67646 

1 

54jo6 

1 

37653 

0 

54no 

0 

56ioT 

1 

0 

37634 

1 

5Ano 

54106 

0 

04.2310 

56106 

0 

03241 

0 

00001 

0 

22002 

0 

02205 

1 

5OI23 

1 

32321 

0 

1 

04.2320 

67646 

1 

54107 

0 

02302 

1 

Cl 

00005 

1 

Cl 

00003 

1 

Cl 

00000 

1 

22002 

0 

44444 

0 

04.2330 

02336 

0 

44445 

1 

02336 

0 

44446 

1 

02336 

0 

04205 

1 

60637 

0 

00006 

1 

04.2340 

12342 

1 

00002 

0 

00001 

0 

56101 

1 

54652 

1 

37630 

0 

54675 

1 

47635 

1 

04.2350 

00006 

1 

03013 

0 

42405 

0 

00006 

1 

03011 

1 

34511 

0 

54103 

1 

OOOO4 

0 

04.2360 

50103 

0 

10662 

1 

67646 

1 

02370 

1 

67646 

1 

4OOOO 

0 

72406 

0 

02373 

1 

04*2370 

40000 

0 

7Z4O6 

0 

40000 

0 

50103 

0 

54662 

1 

00003 

1 

10103 

1 

02356 

0 
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octal  listing  of  paragraph  # 091,  WITH  parity  bit  in  Binary  at  the  right  of  each  wOrd<,  "e"  denotes  unused  Fixed  memory. 


all  valid 

WORDS  are  I 

3ASIC 

instructions 

except  those 

Marked  "i" 

(INTERPRETIVE 

operator  WORDS)  OR 

"C 

" (CONSTANTS). 

09,2400 

37653 

0 

59721 

1 

55021 

1 

55099 

1 

09205 

1 

Cl 

00119 

0 

Cl 

73777 

1 

10637 

1 

09,2910 

67696 

1 

02413 

0 

67696 

1 

59637 

1 

02205 

1 

10655 

0 

02929 

1 

02921 

1 

09.2920 

02921 

1 

30123 

1 

02496 

0 

O244I 

1 

10123 

0 

59123 

0 

02496 

0 

325I5 

1 

09.2930 

26653 

0 

30123 

1 

59111 

1 

00006 

1 

26691 

0 

09063 

0 

c; 

12315 

0 

30111 

0 

09.2990 

59123 

0 

02499 

1 

29655 

1 

09205 

1 

22002 

0 

02956 

1 

67656 

0 

10000 

0 

09.2950 

00002 

0 

e 

09205 

1 

00002 

0 

22002 

0 

02205 

1 

37653 

0 

50123 

1 

09.2960 

59691 

0 

50123 

1 

59699 

0 

59110 

0 

50123 

1 

47690 

0 

70690 

1 

72516 

0 

09.2970 

59690 

1 

50123 

1 

32506 

0 

59127 

1 

O3I57 

1 

50123 

1 

32511 

0 

59637 

1 

04 . 2g00 

O25I7 

0 

97695 

0 

26637 

1 

OZ5I7 

0 

5OI23 

1 

39992 

1 

59637 

1 

OOOOl 

0 

09.2510 

Ci 

00016 

0 

c;  00005 

1 

c: 

00009 

0 

c: 

00015 

0 

c: 

00011 

1 

c: 

00003 

1 

Cl 

77779 

0 

30637 

0 

09.2520 

59021 

0 

92532 

0 

00009 

0 

50021 

1 

56662 

0 

00006 

1 

62530 

0 

29656 

1 

09.2530 

00003 

1 

0V002 

0 

c: 

09000 

0 

37653 

0 

59I92 

1 

02572 

0 

02590 

1 

02565 

0 

09.2590 

02603 

0 

10190 

0 

56190 

1 

02596 

1 

02555 

0 

67655 

0 

62617 

0 

59190 

0 

09.2550 

02553 

0 

37630 

0 

26190 

0 

37695 

1 

02539 

1 

56190 

1 

62617 

0 

10000 

0 

09.2560 

02597 

0 

e 

67696 

1 

90000 

0 

02597 

0 

00006 

1 

50142 

0 

32619 

0 

09.2570 

52110 

0 

00002 

0 

10190 

0 

00002 

0 

00002 

0 

12576 

0 

97630 

1 

70190 

0 

O4 . 2^00 

54I9O 

0 

50002 

0 

OOOOl 

0 

0000^ 

1 

5OI42 

0 

32619 

0 

5ZI9I 

1 

O7257 

0 

04.2610 

52110 

0 

2014I 

1 

02623 

1 

c: 

056O5 

1 

c: 

O3656 

1 

Cl 

16314 

0 

Cl 

31463 

1 

Cl 

I6O4O 

1 

04.2620 

52110 

0 

52191 

1 

07257 

0 

09102 

0 

Cl 

12513 

0 

02637 

1 

56192 

0 

56191 

0 

09.2630 

59190 

0 

02623 

1 

02637 

1 

02623 

1 

02637 

1 

03032 

0 

02623 

1 

56002 

0 

09.2fc40 

59IO5 

1 

50124 

0 

02692 

0 

0266° 

0 

50103 

0 

30134 

1 

795O3 

1 

04990 

0 

09.2650 

00006 

1 

5OOOO 

1 

30001 

0 

52191 

1 

O7O62 

1 

C; 

OOIO7 

1 

07226 

0 

OO1O5 

0 

09.2660 

30131 

1 

02650 

0 

50129 

0 

02663 

0 

02666 

0 

03255 

0 

00006 

1 

50131 

1 

09.2670 

30001 

0 

52141 

1 

34999 

1 

59637 

1 

37653 

0 

54192 

1 

07226 

0 

03133 

0 

O9.27OO 

00122 

0 

O7O62 

1 

c; 

02749 

1 

lOUl 

1 

37639 

1 

027O7 

0 

97639 

0 

60191 

0 

04.2710 

O3O44 

1 

O4532 

1 

09532 

1 

03053 

1 

04532 

1 

10140 

0 

02722 

1 

02722 

1 

04.2720 

4OOOO 

0 

59140 

0 

10105 

1 

O279O 

0 

02739 

0 

10190 

0 

02736 

1 

04.2730 

02731 

0 

50190 

1 

77626 

0 

59140 

0 

09102 

0 

Cl 

13090 

1 

97626 

0 

02733 

1 

04.2790 

40190 

0 

77626 

0 

90000 

0 

02733 

1 

c; 

26161 

0 

Cl 

30707 

1 

Cl 

21616 

0 

c: 

07071 

0 

09.2750 

c: 

71527 

1 

0/062 

1 

ci 

00107 

1 

56192 

0 

56191 

0 

56190 

1 

00006 

1 

12761 

I 

09.2760 

03255 

0 

03092 

1 

03053 

1 

02739 

0 

IOI9O 

0 

O277I 

1 

02771 

1 

03255 

0 

04.2770 

03255 

0 

32750 

1 

26190 

0 

O7O62 

1 

Cl 

02796 

0 

37633 

0 

60191 

0 

03094 

1 
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OA  »3000 

02712 

1 

07062 

1 

c: 

00107 

1 

56142 

0 

60000 

1 

54142 

1 

37653 

0 

60141 

0 

0a«3010 

03044 

1 

03053 

1 

50124 

0 

03013 

0 

03024 

1 

3OIO3 

0 

60131 

1 

54002 

1 

0A«3020 

56141 

0 

50002 

0 

54001 

1 

02734 

0 

37653 

0 

03016 

0 

07062 

1 

c: 

OOIO7 

1 

0Ai3030 

03032 

0 

03003 

1 

56002 

0 

54110 

0 

36l62 

1 

54107 

0 

04532 

1 

IOIO7 

0 

04*3040 

03035 

1 

00110 

1 

56l4l 

0 

60000 

1 

54141 

1 

00002 

0 

6OI4O 

1 

54140 

0 

04*3050 

00002 

0 

54105 

1 

00002 

0 

10105 

1 

03255 

0 

00002 

0 

03255 

0 

56002 

0 

04*3060 

54101 

0 

10140 

0 

O3O7I 

1 

O3O7I 

1 

67646 

1 

54140 

0 

02313 

1 

40141 

1 

04*3070 

03073 

0 

02273 

0 

56l4l 

0 

63132 

1 

54141 

1 

37653 

0 

60140 

1 

54140 

0 

04*3100 

O3IO4 

1 

37626 

1 

54I4O 

0 

54I4I 

1 

37644 

0 

54I23 

0 

345II 

0 

O7257 

0 

04*3110 

50140 

1 

34333 

0 

74473 

1 

54110 

0 

37653 

0 

56142 

0 

56141 

0 

54140 

0 

04*3120 

56637 

0 

54127 

1 

10000 

0 

54637 

1 

03157 

1 

10123 

0 

03105 

0 

44506 

1 

04*3130 

54637 

1 

00101 

1 

c; 

02476 

0 

56002 

0 

54101 

0 

37653 

0 

54110 

0 

36165 

0 

04*3140 

03241 

0 

3(664 

0 

03241 

0 

IOI4O 

0 

O3I54 

1 

03154 

1 

67646 

1 

54140 

0 

04*3150 

02313 

1 

40141 

1 

54141 

1 

03155 

0 

02273 

0 

34445 

0 

03105 

0 

56002 

0 

04*3160 

54100 

1 

34473 

0 

70127 

1 

54021 

0 

56021 

1 

54125 

0 

37646 

1 

70127 

1 

04*3170 

10000 

0 

03173 

1 

03203 

0 

56110 

1 

04465 

1 

54110 

0 

37631 

1 

70127 

1 

04*3200 

10000 

0 

37645 

1 

6764S 

1 

54127 

1 

OOOO4 

0 

5OIZ5 

1 

10662 

1 

03211 

0 

04*3210 

67646 

1 

54126 

0 

50127 

0 

73235 

1 

00006 

1 

60110 

1 

00006 

1 

04*3220 

13233 

1 

50127 

0 

43235 

1 

70126 

0 

6OIIO 

1 

4OOOO 

0 

50125 

1 

56662 

0 

04*3230 

00006 

1 

63233 

0 

24656 

1 

00003 

1 

00100 

0 

C!  00037 

0 

C:  01740 

0 

c; 

02000 

0 

04*3240 

C{  03740 

1 

54125 

0 

37645 

1 

54127 

1 

56002 

0 

54100 

1 

03204 

1 

03157 

1 

04*3250 

33252 

1 

04105 

1 

C! 

I325O 

1 

34417 

1 

54122 

1 

04512 

0 

43265 

1 

60122 

0 

04*3260 

00006 

1 

13263 

1 

00122 

0 

04662 

1 

CJ  01501 

1 

04376 

1 

37646 

1 

54654 

1 

04*3270 

04610 

1 

0:547 

0 

03400 

0 

04400 

1 

47646 

0 

03267 

1 

47644 

1 

00006 

1 

04*3300 

03011 

1 

04610 

1 

04205 

1 

37225 

0 

54637 

1 

54IZ7 

1 

37646 

1 

70127 

1 

04*3310 

56127 

0 

54021 

0 

56021 

1 

5OOOO 

1 

10662 

1 

03317 

1 

S 

67646 

1 

04*3320 

50127 

0 

73235 

1 

50127 

0 

03324 

1 

03326 

0 

04447 

1 

54110 

0 

47225 

1 

04*3330 

60637 

0 

10000 

0 

67646 

1 

03335 

1 

e 

54127 

1 

03157 

1 

40637 

1 

04*3340 

64444 

1 

10000 

0 

5663^ 

0 

1 

03304 

0 

37653 

0 

54637 

1 

63376 

0 

04*3350 

50000 

1 

10662 

1 

03354 

0 

§ 

67646 

1 

77634 

0 

54110 

0 

50637 

0 

04*3360 

33374 

1 

03241 

0 

40637 

1 

63376 

0 

10000 

0 

56637 

0 

67646 

1 

03346 

0 

04*3370 

34444 

1 

54637 

1 

02454 

0 

00122 

0 

C:  00000 

1 

C:  00001 

0 

Cl  00003 

1 

CI 

OOOO4 

0 
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octal  listing  of  paragraph  * 

043*  ' 

«ITH 

parity  bit 

■ IN 

binary  at  the 

RIGHT  OF  EACH 

wOrDs,  "e"  denotes 

UNUSED  Fixed 

memory. 

all  valid 

WORDS  ARE  1 

3ASIC  instructions 

except  THoSE 

MARKED  "1"  (Interpretive  operator  words)  qR 

" (Constants) 

• 

0A»3400 

10676 

1 

O34O6 

0 

09205 

1 

03406  0 

54676  1 

03^24  0 

37653  0 

56676 

0 

04«3a10 

00004 

0 

O4I7O 

0 

10694 

1 

03430  0 

04205  1 

03426  1 

37645  1 

50635 

1 

04«3A20 

60150 

0 

50635 

1 

54150 

1 

00003  1 

04633  0 

04205  1 

37653  0 

O34I7 

0 

04*3430 

37646 

1 

03417 

0 

54001 

1 

10677  0 

03437  1 

30001  0 

04105  1 

37645 

1 

04*3440 

54130 

1 

50130 

0 

IO7O2 

0 

03445  1 

O345O  0 

10130  1 

O344O  1 

O35I4 

1 

04*3490 

30001 

0 

50130 

0 

547OZ 

0 

04164  0 

54001  1 

10692  1 

03461  1 

30001 

0 

04*3460 

04105 

1 

376A5 

1 

54677 

0 

30001  0 

56704  1 

56703  0 

56702  1 

10000 

0 

04*3470 

03514 

1 

03473 

1 

03514 

1 

04522  0 

30001  0 

04l64  0 

34502  1 

04131 

0 

04*3500 

Cl  O35O3 

1 C8 

10001 

1 

04321 

0 

04636  0 

O3512  1 

04170  0 

OOOO3  1 

37646 

1 

04*3510 

54677 

0 

04205 

1 

37693 

0 

03510  0 

04662  1 

c:  01206  1 

9 

9 

04*3520 

@ 

9 

9 

9 

9 

9 

9 

9 

04*3530 

e 

9 

9 

9 

9 

9 

9 

9 

04*3540 

e 

9 

9 

9 

9 

9 

9 

9 

04*3550 

e 

9 

9 

9 

9 

9 

9 

9 

04,3560 

§ 

9 

9 

9 

9 

9 

9 

9 

04*3570 

§ 

9 

9 

9 

9 

9 

9 

9 

0A*3600 

9 

9 

9 

9 

9 

9 

9 

9 

04*3610 

9 

9 

9 

9 

9 

9 

9 

9 

04*3620 

9 

9 

9 

9 

9 

9 

9 

9 

04*3630 

9 

9 

9 

9 

9 

9 

9 

9 

04*3640 

9 

9 

9 

9 

9 

9 

9 

9 

04*3650 

9 

9 

9 

9 

9 

9 

9 

9 

04*3660 

9 

9 

9 

9 

9 

9 

9 

9 

04*3670 

9 

9 

9 

9 

9 

9 

9 

9 

04*3700 

9 

9 

9 

9 

9 

9 

9 

9 

04*3710 

9 

9 

9 

9 

9 

9 

9 

9 

04*3720 

9 

9 

9 

9 

9 

9 

9 

9 

04*3730 

9 

9 

9 

9 

9 

9 

9 

9 

04*3740 

9 

9 

9 

9 

9 

9 

9 

9 

04*3750 

9 

9 

9 

9 

9 

9 

9 

9 

04*3760 

9 

9 

9 

9 

9 

9 

9 

9 

04*3770 

9 

9 

9 

9 

9 

9 

9 

9 

27S690  YUl  sYsTeM  FOR  BLK2J  REVISION  0 OF  PROGRAM  RETrEDAA  BY  ^AsA  2021100 


jUL  9t  1965 


PAGE  293 


octal  listing  of  paragraph  « qAA,  with  parity  bit  in  binary  at  the  right  of  each  wOrDs  «e"  denotes  unused  fixed  memory. 

ALL  valid  words  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "i"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


05.2000 

03344 

1 

13403 

1 

02663 

0 

37653 

0 

54655 

0 

34417 

1 

54122 

1 

10653 

0 

05.2010 

02031 

1 

02031 

1 

02013 

1 

36165 

0 

7O64O 

1 

10000 

0 

02020 

1 

0202a 

0 

05.2020 

10637 

1 

02324 

0 

02324 

0 

0202A 

0 

40653 

0 

54653 

0 

04547 

0 

00653 

1 

05.2030 

c: 

00030 

1 

37653 

0 

54&A0 

1 

40641 

0 

62030 

0 

00006 

1 

62116 

0 

00006 

1 

05*2040 

32076 

1 

52006 

0 

50124 

0 

02043 

1 

02046 

1 

02176 

0 

10132 

0 

O2II4 

1 

05*2050 

02324 

0 

02055 

0 

24657 

0 

04436 

1 

02102 

0 

37630 

0 

54655 

0 

444I7 

0 

05*2060 

60122 

0 

00006 

1 

120&A 

0 

02100 

1 

02256 

1 

10640 

1 

02324 

0 

56645 

0 

05*2070 

04430 

1 

oyoo6 

1 

32O76 

1 

52006 

0 

02116 

0 

Cl  02000 

0 

Cl 

14001 

0 

CI 

77772 

0 

05*2100 

30142 

0 

04430 

1 

47643 

0 

70641 

0 

62077 

0 

00006 

1 

12116 

1 

34446 

0 

05*2110 

54637 

1 

30657 

0 

03222 

0 

02116 

0 

67646 

1 

04430 

1 

42131 

1 

60641 

1 

05*2120 

10000 

0 

676A6 

1 

02124 

1 

02133 

1 

54140 

0 

04610 

1 

56140 

1 

62132 

0 

05*2130 

04105 

1 

0 

00040 

0 

Cl 

11255 

0 

50641 

1 

32136 

1 

04105 

1 

Cl 

12324 

1 

Cl 

12340 

0 

05*2140 

Cl 

12345 

0 

c: 

12352 

0 

c: 

12333 

1 

C;  12326 

0 

Cl  12445 

1 

C;  10662 

1 

Cl 

11255 

0 

Cl 

13077 

0 

05*2150 

c; 

13077 

0 

Cl 

13077 

0 

C! 

13077 

0 

Cl  13077 

0 

C!  13077 

0 

Cl  13077 

0 

c: 

12324 

1 

C! 

12620 

0 

05*2160 

C! 

12631 

0 

c: 

126A6 

0 

Cl 

12572 

1 

Cl  12535 

1 

Cl  12324 

1 

Cl  13214 

1 

C! 

13314 

0 

Cl 

13340 

1 

05*2170 

CJ 

11303 

1 

Cl 

11266 

0 

Cl 

11273 

1 

Cl  13414 

1 

C;  02677 

0 

C!  13267 

0 

10132 

0 

02203 

1 

05*2200 

02324 

0 

02203 

1 

02203 

1 

46162 

0 

60641 

1 

00006 

1 

62210 

0 

02116 

0 

Os. 2210 

376A5 

1 

5:103 

1 

62235 

1 

54131 

0 

50103 

0 

30134 

1 

54106 

1 

02721 

1 

05.2220 

02236 

1 

0‘223 

0 

24106 

0 

30106 

0 

74503 

1 

04440 

0 

50000 

1 

30000 

1 

05.2230 

5OI3I 

1 

56000 

1 

10103 

1 

O22II 

1 

02116 

0 

00111 

0 

5OOOO 

1 

12240 

1 

05*2240 

OOOO2 

0 

OOOO2 

0 

OOOO2 

0 

OOOOz 

0 

12250 

0 

12290 

0 

00002 

0 

12250 

0 

05*2250 

50002 

0 

00001 

0 

34444 

1 

12257 

1 

34445 

0 

12257 

1 

34446 

0 

54637 

1 

05*2260 

40002 

1 

54653 

0 

04063 

0 

Cl  10454 

0 

04543 

1 

44417 

0 

60122 

0 

00006 

1 

05*2270 

12273 

1 

A7653 

1 

54676 

1 

00122 

0 

54642 

0 

56002 

0 

54103 

1 

00006 

1 

05*2300 

32076 

1 

52006 

0 

10132 

0 

67646 

1 

12307 

0 

12310 

0 

12310 

0 

04430 

1 

05*2310 

345O7 

1 

54637 

1 

30642 

1 

12322 

1 

54641 

0 

56002 

0 

54103 

1 

34506 

0 

05*2320 

5A637 

1 

30641 

1 

03255 

0 

00103 

0 

04102 

0 

Cl  11255 

0 

47645 

0 

02376 

1 

05*2330 

50131 

1 

40002 

1 

56116 

1 

47646 

0 

02376 

1 

50131 

1 

40001 

1 

56ll5 

1 

05*2340 

02420 

0 

5OI3I 

1 

0 

0 

a 

0 

0 

56114 

0 

02357 

1 

47646 

0 

02376 

1 

50131 

1 

05*2350 

4OOOI 

1 

02343 

1 

A76A5 

0 

02376 

1 

50131 

1 

4OOO2 

1 

02343 

1 

47645 

0 

05*2360 

606A1 

1 

lOOOO 

0 

02365 

0 

00122 

0 

02365 

0 

54106 

1 

5OOOO 

1 

34444 

1 

05*2370 

54637 

1 

50106 

0 

40114 

1 

03222 

0 

56106 

0 

02361 

1 

54107 

0 

22002 

0 
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octal  listing  of  paragraph  « q95,  with  parity  bit  IN  binary  at  the  right  of  each  wOrDs,  "e"  denotes  unused  Fixed  memory. 


ALL  valid  words  ARE  BASiC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "l"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS), 


05«2400 

47646 

0 

60642 

1 

00006 

1 

12417 

0 

50124 

0 

32442 

1 

50000 

1 

30000 

1 

05*2410 

74475 

1 

04456 

1 

60107 

1 

10000 

0 

OOOOl 

0 

e 

02324 

0 

OOOOl 

0 

05*2420 

22002 

0 

30132 

1 

67646 

1 

00006 

1 

12436 

0 

50124 

0 

02426 

0 

02431 

0 

05*2430 

00001 

0 

02713 

0 

02236 

1 

OOOOl 

0 

24131 

1 

OOOOl 

0 

00006 

1 

50657 

0 

05*2440 

00000 

1 

4OOOO 

0 

12343 

0 

c: 

00133 

0 

C! 

00132 

1 

50124 

0 

32442 

1 

5OOOO 

1 

05*2450 

30000 

1 

74475 

1 

04456 

1 

54103 

1 

54106 

1 

60131 

1 

50000 

1 

40000 

0 

05*2460 

50106 

0 

56643 

0 

10106 

1 

02454 

0 

37653 

0 

54141 

1 

54142 

1 

5OIO3 

0 

05*2470 

34444 

1 

54637 

1 

50103 

0 

40643 

1 

54140 

0 

02734 

0 

54107 

0 

00006 

1 

05*2500 

32512 

0 

52006 

0 

50124 

0 

02503 

0 

O25O7 

1 

02721 

1 

02522 

0 

O27I3 

0 

05*2510 

02522 

0 

C:  02037 

1 

Cl 

14001 

0 

04063 

0 

c; 

11057 

0 

10103 

1 

02520 

1 

00122 

0 

05  *2520 

54103 

1 

02464 

0 

60000 

1 

32525 

1 

04105 

1 

c;  11255 

0 

C)  12513 

0 

C!  IO533 

0 

05*2530 

CJ  10620 

1 

c:  19625 

1 

c: 

10632 

1 

cs 

10541 

0 

c: 

10634 

1 

47645 

0 

02376 

1 

32673 

1 

05*2540 

02314 

0 

02252 

0 

32674 

0 

02314 

0 

02254 

0 

32675 

1 

02314 

0 

02256 

1 

05*2550 

46162 

0 

04676 

1 

00006 

1 

32O76 

1 

52006 

0 

37653 

0 

02762 

0 

50131 

1 

05*2560 

54000 

0 

3f646 

1 

02762 

0 

50131 

1 

54OOI 

1 

37645 

1 

02762 

0 

50131 

1 

05*2570 

54002 

1 

0^663 

0 

47646 

0 

02376 

1 

32673 

1 

02314 

0 

02252 

0 

32674 

0 

05*2^00 

02314 

0 

02254 

0 

47225 

1 

02575 

1 

00006 

1 

320?6 

1 

5ZOO6 

0 

37653 

0 

05*2610 

02762 

0 

50131 

1 

54000 

0 

37646 

1 

02762 

0 

50131 

1 

54001 

1 

02663 

0 

05*2620 

02252 

0 

00006 

1 

32076 

1 

52006 

0 

37653 

0 

02762 

0 

50131 

1 

54000 

0 

05*2630 

02663 

0 

4/646 

0 

02376 

1 

37630 

0 

54655 

0 

02254 

0 

00006 

1 

32076 

1 

05*2540 

52006 

0 

376^6 

1 

02762 

0 

50131 

1 

54OOI 

1 

02663 

0 

47645 

0 

02376 

1 

05*2650 

37630 

0 

54655 

0 

02256 

1 

00006 

1 

32076 

1 

52006 

0 

37645 

1 

02762 

0 

05*2660 

50131 

1 

5‘*002 

1 

02663 

0 

37653 

0 

54640 

1 

47653 

1 

54654 

1 

44506 

1 

05*2570 

54537 

1 

04102 

0 

Ci 

11400 

0 

c; 

00021 

1 

c: 

00022 

1 

C:  00023 

0 

54103 

1 

40640 

1 

05  *2700 

54021 

0 

40021 

0 

40021 

0 

10000 

0 

12706 

0 

00002 

0 

60103 

0 

00006 

1 

05*2710 

12712 

0 

04324 

0 

00002 

0 

56002 

0 

64100 

1 

34474 

1 

7OI33 

1 

04447 

1 

05*2720 

00100 

0 

56002 

0 

54100 

1 

50103 

0 

32753 

1 

54001 

1 

50103 

0 

34473 

0 

05*2730 

70137 

0 

50001 

0 

00000 

1 

00100 

0 

56002 

0 

54100 

1 

50124 

0 

02737 

0 

05*2740 

02756 

1 

50103 

0 

32753 

1 

54OOI 

1 

50103 

0 

34473 

0 

7OI33 

1 

5OOO1 

0 

05*2750 

00000 

1 

50000 

1 

00100 

0 

02712 

1 

04447 

1 

04456 

1 

34473 

0 

7O133 

1 

05*2760 

60000 

1 

00100 

0 

54103 

1 

55O02 

0 

54101 

0 

37653 

0 

54105 

1 

5OIO3 

0 

05  *2770 

566^6 

0 

52141 

1 

50103 

0 

56643 

0 

54I4O 

0 

50124 

0 

02776 

0 

03023 

0 
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octal  listing  of  paragraph  « oA6,  WITH  PARITY  ^IT  IN  BlNARy  AT  THE  RIGHT  OF  EACH  wOrDS  "e"  DENOTES  UNUSED  FixEO  MEMORy. 


ALL  vALiD 

WORDS  ARE  1 

9ASlC 

INSTRUCTIONS  EXCEPT  THOSE 

marked  "i" 

(INTERPRETIVE 

OPERATOR 

! WORDS)  OR 

"C 

» (CONSTANTS), 

05*3000 

50103 

0 

30134 

1 

74503 

1 

04430 

1 

00006 

1 

6OIO3 

0 

54131 

0 

10640 

1 

05*3010 

03051 

0 

02721 

1 

02236 

1 

03040 

0 

24131 

1 

30131 

1 

26103 

1 

37653 

0 

05*3020 

50103 

0 

53777 

0 

03040 

0 

04436 

1 

10640 

1 

03051 

0 

02713 

0 

02236 

1 

05*3030 

03034 

0 

37653 

0 

54103 

1 

03014 

1 

30132 

1 

67646 

1 

00006 

1 

13044 

0 

05*3040 

56140 

1 

00101 

1 

Cl 

02045 

1 

C 1 

14001 

0 

56140 

1 

00006 

1 

50657 

0 

OlOOO 

0 

05*3050 

02663 

0 

02734 

0 

54107 

0 

00006 

1 

33043 

0 

52006 

0 

50124 

0 

03057 

0 

05*3060 

03063 

1 

02721 

1 

03064 

0 

02713 

0 

50000 

1 

33067 

0 

04105 

1 

C; 

11255 

0 

05*3070 

c: 

10761 

0 

Cl 

10701 

0 

Cl 

10751 

0 

c; 

11001 

0 

Cl 

11026 

0 

Cl 

10764 

0 

Cl 

11001 

0 

47630 

1 

05*3100 

7O557 

1 

5?14l 

1 

33401 

1 

70641 

0 

04456 

1 

54022 

0 

56022 

1 

60642 

1 

05*3110 

54140 

0 

4V677 

0 

67645 

1 

10000 

0 

04633 

0 

03121 

0 

e 

37653 

0 

05*3120 

54652 

1 

00004 

0 

10660 

0 

03130 

0 

37646 

1 

04251 

0 

Cl 

03134 

1 

Cl 

12001 

0 

05*3130 

5Z141 

1 

52661 

1 

00003 

1 

00122 

0 

04526 

1 

10661 

1 

03142 

0 

03142 

0 

05*3140 

03153 

0 

03153 

0 

33157 

1 

04251 

0 

Cl 

03134 

1 

Cl 

12001 

0 

34502 

1 

04131 

0 

05*3150 

Ci 

03160 

0 

Cl 

12001 

0 

04321 

0 

37653 

0 

54660 

0 

54661 

1 

04321 

0 

Cl 

00144 

0 

05*3160 

10661 

1 

03165 

0 

03165 

0 

04205 

1 

04205 

1 

10652 

1 

03212 

0 

33401 

1 

05*3170 

7O66O 

0 

5?107 

0 

04372 

0 

04205 

1 

33210 

1 

7O66O 

0 

04447 

1 

54020 

1 

05*3200 

56020 

0 

54641 

0 

33211 

0 

54122 

1 

47630 

1 

7O66I 

1 

54142 

1 

02037 

1 

05*3210 

Cl 

00700 

0 

Ci 

0?347 

0 

04522 

0 

04205 

1 

34444 

1 

54637 

1 

30657 

0 

04116 

0 

05*3220 

03222 

0 

04205 

1 

54022 

0 

56002 

0 

54101 

0 

37631 

1 

26637 

1 

376^4 

0 

05*3230 

54123 

0 

40022 

0 

40022 

0 

40022 

0 

40000 

0 

77652 

0 

50000 

1 

34333 

0 

05*3240 

74473 

1 

54110 

0 

56637 

0 

54127 

1 

10000 

0 

54637 

1 

04102 

0 

Cl 

11247 

0 

05.3250 

10123 

0 

03230 

0 

445O6 

1 

54637 

1 

00101 

1 

54020 

1 

56002 

0 

54101 

0 

05*3260 

37646 

1 

54123 

0 

40020 

1 

40020 

1 

56020 

0 

54022 

0 

03235 

0 

03302 

0 

05.3270 

37653 

0 

56642 

1 

54140 

0 

34507 

1 

54637 

1 

04063 

0 

Cl 

10517 

0 

30140 

1 

05*3300 

04102 

0 

C! 

11255 

0 

40002 

1 

54653 

0 

34507 

1 

54637 

1 

37653 

0 

54642 

0 

05.3310 

04063 

0 

Cl 

10517 

0 

04543 

1 

00122 

0 

37646 

1 

7O7O6 

1 

10000 

0 

03336 

1 

05.3320 

34476 

0 

54140 

0 

47646 

0 

7O7O6 

1 

54144 

1 

04610 

1 

34417 

1 

54143 

0 

05*3330 

00006 

1 

3O7IO 

1 

62142 

1 

30144 

0 

00004 

0 

00140 

1 

34501 

1 

03321 

1 

05*3340 

34477 

1 

54140 

0 

3O7O6 

0 

03324 

1 

33363 

1 

54122 

1 

33401 

1 

7OIO7 

0 

05.3350 

54140 

0 

33402 

1 

7OIO7 

0 

04447 

1 

54O2O 

1 

56020 

0 

54141 

1 

10140 

0 

05.3360 

03364 

0 

56141 

0 

02314 

0 

04376 

1 

IOI4I 

1 

03371 

1 

56140 

1 

02274 

1 

05.3370 

04376 

1 

56141 

0 

02314 

0 

56140 

1 

02274 

1 

37653 

0 

54654 

1 

54655 

0 
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octal  listing  of  paragraph  ^ 0^7,  WITH  PAriTy  BIT  iN  BlNARy  AT  THE  RIGHT  OF  EACH  wORDS  "e"  OEnOTES  uNuSED  FixED  MEMORy. 


ALL  vALiD 

WORDS  ARE 

BASjC  INSTRUCTIONS 

EXCEPT  THOSE 

marked  "i" 

(interpretive 

operator  WORDS)  OR 

"C 

" (CONSTANTS), 

05i3400 

02031 

1 Cl 

00077 

1 

c: 

07700 

1 

34510 

1 

56637 

0 

54124 

1 

30651 

0 

22002 

0 

05*3410 

03255 

0 

56124 

0 

54637 

1 

00001 

0 

33453 

0 

00006 

1 

05011 

1 

33454 

1 

05*3420 

54675 

1 

37635 

0 

00006 

1 

05013 

0 

00004 

0 

37650 

0 

54103 

1 

43451 

0 

05*3430 

50103 

0 

54662 

1 

10103 

1 

03426 

1 

43452 

0 

54663 

0 

54666 

0 

54670 

1 

05*3440 

37647 

0 

54656 

0 

00003 

1 

33456 

0 

00004 

0 

04251 

0 

C! 

03457 

1 

C( 

12001 

0 

05*3450 

04205 

1 C! 

05675 

0 

C! 

07675 

1 

Cl  00174 

0 

Cl  40777 

1 

c:  00114 

0 

c: 

00764 

1 

34502 

1 

05*3460 

04131 

0 c: 

03464 

1 

c: 

12001 

0 

04321 

0 

43455 

1 

00006 

1 

03011 

1 

47635 

1 

05*3470 

00006 

1 

03013 

0 

37630 

0 

54675 

1 

02001 

1 

04102 

0 

c: 

11273 

1 

g 

05*3500 

§ 

g 

g 

g 

g 

g 

g 

g 

05*3510 

1? 

g 

g 

g 

g 

g 

g 

g 

05*3520 

g 

g 

g 

g 

g 

g 

g 

05*3530 

g 

g 

g 

g 

g 

g 

g 

05*3540 

g 

g 

g 

g 

g 

g 

g 

05*3550 

e 

g 

g 

g 

g 

g 

g 

g 

05*3560 

e 

g 

g 

g 

g 

g 

g 

g 

05*3570 

s 

g 

g 

g 

g 

g 

g 

g 

05*3600 

g 

g 

g 

g 

g 

g 

g 

05*3610 

e 

g 

g 

g 

g 

g 

g 

g 

05*3620 

e 

g 

g 

g 

g 

g 

g 

g 

05*3630 

g 

g 

g 

g 

g 

g 

g 

06*3640 

§ 

g 

g 

g 

g 

g 

g 

g 

05*3650 

g 

g 

g 

g 

g 

g 

g 

05*3660 

g 

g 

g 

g 

g 

g 

g 

05*3670 

g 

g 

g 

g 

g 

g 

g 

05*3700 

g 

g 

g 

g 

g 

g 

g 

g 

05*3710 

g 

g 

g 

g 

g 

g 

g 

g 

05*3720 

g 

g 

g 

g 

g 

g 

g 

g 

05*3730 

g 

g 

g 

g 

g 

g 

g 

g 

05*3740 

g 

g 

g 

g 

g 

g 

g 

g 

05*3750 

g 

g 

g 

g 

g 

g 

g 

g 

05*3760 

g 

g 

g 

g 

g 

g 

g 

g 

05*3770 

g 

g 

g 

g 

g 

g 

g 

g 
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octal  listing  of  paragraph  0 050»  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WOrDV  DENOTES  UNUSED  FIXED  MEMORY. 


ALL  valid  words  ARE  BASIC  INSTRUCTIONS  EXCEpT  THqSE  MARKED  "I"  ( iNTERpRETIVE  opERATqR  WoRDS)  qR  "C"  (CoNSTAnTS) , 


06  f 2000 

52136 

1 

50642 

1 

32052 

1 

54132 

0 

50642 

1 

32152 

0 

59133 

1 

40p42 

0 

06«2010 

62036 

0 

00006 

1 

62016 

1 

37646 

1 

54124 

1 

02034 

1 

37695 

1 

54124 

1 

0612020 

50642 

1 

32345 

1 

54137 

0 

36425 

1 

70132 

0 

54002 

1 

5OOOO 

1 

32332 

1 

06<2030 

54134 

0 

0U006 

1 

50002 

0 

32334 

1 

52136 

1 

52006 

0 

Cl 

00055 

1 

52110 

0 

06*2040 

00006 

1 

5OOOO 

1 

32303 

0 

52110 

0 

52006 

0 

52110 

0 

00006 

1 

5OOOO 

1 

06*2050 

32253 

1 

12043 

0 

Ci 

00000 

1 

Ci 

40000 

0 

Cl  40000 

0 

Cl 

40000 

0 

Cl 

4OOOO 

0 

Cl  40000 

0 

06*2060 

c: 

40000 

0 

Cl 

40000 

0 

Ci 

77776 

1 

Ci 

OOOOO 

1 

Cl  OOOOO 

1 

Cl 

OOOOO 

1 

Cl 

OOOOO 

1 

Cl  77777 

0 

06*2070 

Ci 

00024 

1 

c: 

00024 

1 

Cl 

00032 

0 

Cl 

00037 

0 

Cl  00716 

1 

Cl 

OO7II 

0 

Cl 

00706 

0 

Cl  OO7O6 

0 

06*2100 

cl 

OO7O6 

0 

cl 

01047 

0 

Cl 

OO7O6 

0 

cl 

00721 

0 

Cl  00722 

0 

C I 

00724 

0 

Cl 

00726 

1 

Cl  00730 

0 

06*2110 

C; 

00733 

0 

Cl 

00736 

0 

C| 

00000 

1 

Cl 

OOOOO 

1 

Cl  OOOOO 

1 

Cl 

OOOOO 

1 

Cl 

OOOOO 

1 

Cl  OOOOO 

1 

06*2120 

Cl 

00000 

1 

Cl 

00000 

1 

Cl 

00000 

1 

Cl 

OOOOO 

1 

Cl  00741 

0 

Cl 

00744 

0 

Cl 

00797 

0 

Cl  02000 

0 

06*2130 

Cl 

04002 

1 

Cl 

02005 

0 

Ci 

04007 

1 

Cl 

02012 

0 

Cl  02014 

0 

Cl 

02016 

1 

Cl 

02020 

1 

Cl  02022 

0 

06*2140 

Cl 

04024 

0 

cl 

0^027 

0 

Cl 

04032 

1 

cl 

04036 

0 

Cl  O4O4O 

1 

cl 

04043 

1 

cl 

04046 

1 

Cl  04051 

1 

06*2150 

Cl 

04054 

1 

Cl 

04057 

1 

Cl 

00000 

1 

Cl 

00040 

0 

Cl  OOI4O 

1 

Cl 

00102 

1 

Cl 

00241 

0 

Cl  00200 

0 

06*2160 

Cl 

00203 

0 

Cl 

00302 

0 

Cl 

00000 

1 

Cl 

OOOOO 

1 

Cl  OOOOO 

1 

Cl 

OOOOO 

1 

Cl 

OOOOO 

1 

Cl  OOOOO 

1 

06*2170 

Cl 

00200 

0 

Cl 

00241 

0 

Cl 

04102 

0 

Cl 

04140 

0 

Cl  04102 

0 

Cl 

04102 

0 

Cl 

00200 

0 

C!  00140 

1 

06*2200 

Cl 

04000 

0 

c 1 

00140 

1 

Cl 

04140 

0 

cl 

02000 

0 

Cl  00252 

1 

Cl 

00252 

1 

cl 

OO35O 

1 

Cl  04102 

0 

06*2210 

c: 

04000 

0 

Cl 

04000 

0 

Cl 

00000 

1 

Cl 

OOOOO 

1 

Cl  OOOOO 

1 

Cl 

OOOOO 

1 

Cl 

OOOOO 

1 

Cl  OOOOO 

1 

06*2220 

Cl 

00000 

1 

C! 

00000 

1 

Cl 

ooooO 

1 

Cl 

OOOOO 

1 

Cl  04144 

1 

Cl 

04145 

0 

Cl 

04145 

0 

Cl  00102 

1 

06*2230 

Cl 

00102 

1 

Cl 

00102 

1 

Cl 

00000 

1 

Cl 

00542 

1 

Cl  00002 

0 

Cl 

OOOO2 

0 

Cl 

00002 

0 

Cl  OOOOl 

0 

06*2240 

C 1 

00000 

1 

cl 

06143 

1 

cl 

14306 

1 

cl 

16347 

0 

Cl  20410 

0 

C 1 

22451 

1 

cl 

00412 

0 

Cl  20450 

1 

06*2250 

Cl 

20410 

0 

Cl 

22451 

1 

Cl 

00006 

1 

C| 

03240 

1 

Ci  00253 

0 

Cl 

25124 

1 

Cl 

OOOOO 

1 

Cl  OOOOO 

1 

06*2260 

Cl 

00021 

1 

Cl 

30707 

1 

Cl 

OOOOl 

0 

Cl 

02133 

1 

Cl  00011 

1 

Cl 

30322 

1 

C! 

00004 

0 

Cl  14021 

1 

06*2270 

Cl 

00314 

1 

Cl 

31463 

1 

Cl 

23420 

0 

C! 

OOOOO 

1 

Cl  00201 

1 

Cl 

30327 

1 

Cl 

01371 

0 

Cl  34750 

1 

06*2300 

Cl 

OOOOl 

0 

cl 

03434 

1 

C 1 

05174 

0 

C 1 

13261 

0 

cl  27670 

0 

cl 

31357 

1 

C 1 

OOOOO 

1 

Cl  OOOOO 

1 

06*2310 

C| 

01631 

1 

Ci 

23146 

0 

Cl 

35753 

0 

C| 

32323 

1 

Cl  03216 

1 

C| 

06400 

0 

Cl 

07237 

0 

C|  37776 

0 

06*2320 

c; 

00120 

1 

Cl 

00000 

1 

Cl 

00321 

1 

Cl 

26706 

1 

Cl  37441 

1 

Cl 

14247 

0 

Cl 

05300 

1 

Ci  20305 

0 

06*2330 

Cl 

34631 

1 

Cl 

2fl46 

0 

Cl 

00036 

1 

cl 

00035 

1 

Cl  00706 

0 

Cl 

00707 

1 

Cl 

00710 

1 

Ci  00752 

1 

06*2340 

cl 

00753 

0 

cl 

01017 

0 

Cl 

01017 

0 

C I 

01021 

0 

Ci  OO7O6 

0 

Cl 

00707 

1 

Cl 

00034 

0 

Cl  00024 

1 

06*2350 

00036 

1 

Ci 

00024 

1 

C| 

00035 

1 

C| 

00024 

1 

Ci  00754 

1 

e, 

00754 

1 

C| 

00711 

0 

Cl  OO7I2 

0 

06*2360 

Cl 

00713 

1 

Cl 

00756 

0 

Cl 

00760 

0 

Ci 

00762 

1 

Cl  00769 

1 

Cl 

00766 

Q 

Cl 

OO77O 

1 

Cl  00765 

0 

06*2370 

C! 

00767 

1 

Cl 

00771 

0 

Cl 

OIOOO 

0 

Cl 

01002 

1 

Cl  01004 

1 

Cl 

01006 

0 

Cl 

01010 

1 

C!  01012 

0 
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octal  listing  of  paragraph  H 051*  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  wOrDs,  "e"  DENOTES  UNUSED  FixED  MEMORY. 


all  valid 

WORDS 

i are  I 

SASIC 

INSTRUCTIONS 

ExCEpT  THfiSE 

marked  "I" 

( iNTERpRETlvE 

OpERATqR 

WORDS) 

oR  "C 

" (Constants). 

06*ZA0f) 

c: 

00722 

0 

C! 

00726 

1 

c: 

01014 

0 

c: 

00706 

0 

CI  00710 

1 

CI 

01015 

1 

CI 

00706 

0 

CI 

00710 

1 

06*2410 

Cl 

00712 

0 

c: 

00706 

0 

c: 

00710 

1 

CI 

00712 

0 

CI  00000 

1 

CI 

00000 

1 

CI 

00000 

1 

Cl 

00000 

1 

06*2420 

C! 

00000 

1 

c; 

00000 

1 

Ci 

00302 

0 

CI 

10302 

1 

CI  00302 

0 

Cl 

00000 

1 

Cl 

00U2 

0 

Cl 

00202 

1 

06*2430 

c: 

00202 

1 

CI 

00206 

0 

ct 

00205 

0 

CI 

06043 

0 

CI  10204 

0 

Cl 

06143 

1 

Cl 

06143 

1 

c: 

16347 

0 

06*2440 

Ci 

12245 

1 

cl 

00345 

0 

ci 

16247 

1 

cl 

16347 

0 

Cl  12245 

1 

e 

@ 

■ e 

06*2450 

e 

e 

e 

® 

e 

® 

® 

06*2460 

e 

e 

s 

e 

® 

® 

e 

@ 

06*2470 

IS 

e 

e 

e 

e 

e 

e 

e 

06*2500 

e 

e 

e 

® 

® 

® 

® 

06*2510 

e 

@ 

@ 

® 

® 

@ 

® 

06*2520 

® 

e 

e 

e 

® 

@ 

e 

06*2530 

@ 

@ 

e 

e 

e 

@ 

® 

® 

06*2540 

e 

@ 

® 

e 

@ 

e 

e 

06*2550 

1? 

e 

e 

® 

e 

e 

® 

06*2560 

e 

® 

@ 

e 

® 

® 

06*2570 

e 

@ 

e 

e 

® 

e 

® 

06*2600 

e 

e 

® 

® 

® 

e 

® 

06*2610 

® 

e 

e 

® 

e 

® 

06*2620 

e 

e 

« 

® 

@ 

e 

® 

06*2630 

e 

® 

® 

® 

@ 

® 

e 

06*2640 

@ 

e 

e 

® 

e 

e 

® 

® 

06*2650 

(9 

e 

e 

e 

® 

® 

e 

® 

06*2660 

1? 

@ 

e 

@ 

® 

® 

® 

® 

06*2670 

1? 

e 

@ 

e 

® 

® 

@ 

® 

06*2700 

e 

® 

g 

® 

® 

e 

e 

e 

06*2710 

I? 

e 

® 

e 

e 

® 

® 

e 

06*2720 

® 

e 

@ 

@ 

@ 

e 

e 

06*2730 

e 

® 

® 

® 

e 

® 

06*2740 

e 

® 

® 

@ 

® 

® 

e 

06*2750 

e 

® 

e 

® 

e 

® 

® 

06*2760 

® 

® 

e 

® 

e 

® 

® 

06*2770 

1? 

e 

e 

e 

® 

e 

® 

g 
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octal  listing  of  paragraph  » q5A,  with  parity  bit  in  binary  at  the  right  of  each  wOROv  "e"  denotes  unused  fixed  memory. 


all  valid  words  are  basic  instructions  except  those  Marked  "i"  (interpretive  operator  wordsi  or  "c"  (constants). 


0t«2000 

34711  1 

55045 

0 

55046  0 

02005  0 

02011  0 

12007  0 

O477O  0 

00002  0 

07.2010 

04770  0 

34743 

0 

55034  0 

11034  0 

O477O  0 

04770  0 

02020  1 

04770  0 

07.2020 

10000  0 

02025 

1 

O477O  0 

O477O  0 

O477O  0 

10000  0 

02032  1 

04770  0 

07.2030 

04770  0 

0?770 

0 

lOOOO  0 

O477O  0 

02037  1 

04770  0 

O477O  0 

40000  0 

07.2040 

10000  0 

O477O 

0 

O477O  0 

O477O  0 

10000  0 

04770  0 

02051  1 

04770  0 

07.2050 

04770  0 

44746 

1 

74746  1 

04753  1 

44711  0 

74711  0 

04753  1 

34711  1 

07.2060 

74711  0 

04753 

1 

34746  0 

74746  1 

04754  0 

34746  0 

54023  1 

70023  1 

07.2070 

55034  0 

70023 

1 

40000  0 

61034  1 

04754  0 

34712  1 

54001  1 

34746  0 

07.2100 

70001  1 

04761 

0 

347z5  0 

55034  0 

6IO34  1 

55O35  1 

04770  0 

04761  0 

07.2110 

57034  1 

40000 

0 

60000  1 

55036  1 

0977O  0 

61036  0 

61035  0 

61034  1 

07.2120 

55037  0 

4i037 

0 

04761  0 

34725  0 

55034  0 

25034  1 

25034  1 

25039  1 

07.2130 

64726  0 

04754 

0 

41034  0 

55034  0 

25034  1 

31034  1 

04762  0 

39799  1 

07.2140 

54001  1 

24001 

0 

30001  0 

04762  0 

347O6  1 

55039  0 

27034  0 

27039  0 

07.2150 

55035  1 

O477O 

0 

41034  0 

04754  0 

34723  0 

54001  1 

64712  1 

26001  1 

07.2160 

64726  0 

04754 

0 

40001  1 

64725  0 

04754  0 

34712  1 

55034  0 

23039  1 

07.2170 

40000  0 

55035 

1 

23035  0 

41035  1 

04762  0 

30001  0 

04762  0 

34725  0 

O7.22OO 

60000  1 

5h001 

1 

O477O  0 

<,9725  1 

60000  1 

22OOO  1 

55039  0 

O22U  1 

07.2210 

04770  0 

30001 

0 

55035  1 

02215  0 

04770  0 

61034  1 

09754  0 

34725  0 

07.2220 

55035  1 

40000 

0 

54001  1 

64712  1 

55034  0 

9OOOO  0 

53035  1 

60001  0 

07.2230 

04761  0 

3i034 

1 

61035  0 

04762  0 

34723  0 

55034  0 

55035  1 

54001  1 

07.2240 

64712  1 

2‘035 

1 

04763  1 

56001  0 

04753  1 

91034  0 

61035  0 

04762  0 

O7.225O 

34725  0 

55034 

0 

55035  1 

54001  1 

34712  1 

21035  1 

04761  0 

56001  0 

07.2260 

04753  1 

41034 

0 

04762  0 

34726  0 

61035  0 

04762  0 

34725  0 

55034  0 

07.2270 

40000  0 

55035 

1 

40000  0 

64745  0 

54001  1 

90000  0 

21035  1 

04753  1 

O7.23OO 

07.2310 

56001  0 
55035  1 

54I00! 

1 

1 

3IO39  1 
64745  0 

0^761  0 
21035  1 

0 

04753  1 

O9762  0 
56001  0 

44T23  1 
04753  1 

5503.  0 
41035  1 

07.2320 

61034  1 

04762 

0 

34726  0 

55034  0 

55035  1 

54001  1 

34745  0 

21035  1 

07.2330 

04762  0 

56001 

0 

04753  1 

31034  1 

04762  0 

34725  0 

61035  0 

04761  0 

O7.234O 

34726  0 

55035 

1 

54OOI  1 

9OOOO  0 

55034  0 

20001  1 

55036  1 

04770  0 

07.2350 

30001  0 

61036 

0 

04762  0 

34711  1 

55025  0 

34670  1 

55026  0 

34663  0 

07.2360 

55027  1 

34664 

1 

55030  1 

34665  0 

55031  0 

34666  0 

55032  0 

34667  1 

07.2370 

55033  1 

51026 

1 

30000  1 

51027  0 

54000  0 

51025  1 

40000  0 

51027  0 
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octal  Listing  of  paragraph  # qss,  with  parity  bit  in  binary  at  the  right  of  each  wOrDs,  denotes  unused  fixed  memory. 

ALL  valid  words  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "l"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS), 


07*2600 

56000 

1 

51025 

1 

10000 

0 

02407 

0 

04770 

0 

04770 

0 

04770 

0 

51027 

0 

07.2A10 

60000 

1 

51032 

1 

00003 

1 

O477O 

0 

51032 

1 

00006 

1 

02423 

0 

51033 

0 

07*2420 

10003 

0 

04770 

0 

00002 

0 

04762 

0 

34725 

0 

69712 

1 

51027 

0 

54000 

0 

07*2430 

O477O 

0 

61034 

1 

51026 

1 

7OOOO 

0 

04761 

0 

39723 

0 

55034 

0 

51025 

1 

O7  *2440 

51027 

0 

26000 

0 

51027 

0 

24000 

1 

40000 

0 

61034 

1 

04761 

0 

34726 

0 

07*2450 

55035 

1 

34712 

1 

55036 

1 

51031 

1 

22000 

1 

34794 

1 

51027 

0 

20001 

1 

07*2460 

51027 

0 

52001 

1 

60001 

0 

04762 

0 

41034 

0 

04754 

0 

31035 

0 

04753 

1 

07*2470 

34671 

0 

647O7 

0 

55042 

1 

51042 

0 

20003 

0 

04770 

0 

34663 

0 

50000 

1 

07*2500 

54OOO 

0 

4OOOO 

0 

61034 

1 

O5754 

0 

00006 

1 

34673 

1 

55O35 

1 

56001 

0 

07*2510 

55034 

0 

00006 

1 

61035 

0 

04761 

0 

00006 

1 

41035 

1 

00006 

1 

6OOO1 

0 

07*2520 

04762 

0 

3*»725 

0 

54001 

1 

6000Q 

1 

00006 

1 

40001 

1 

55034 

0 

04770 

0 

07,2530 

31034 

1 

00006 

1 

60001 

0 

04761 

0 

34744 

1 

54OO2 

1 

34712 

1 

54001 

1 

07*2540 

34701 

0 

00006 

1 

30002 

0 

60001 

0 

04762 

0 

32555 

0 

55034 

0 

02551 

1 

07*2550 

04770 

0 

OV006 

1 

23034 

1 

00002 

0 

O477O 

0 

Cl  02557 

1 

c:  02550 

0 

41034 

0 

07*2560 

62556 

0 

04754 

0 

34711 

1 

02565 

0 

I257I 

1 

00006 

1 

22000 

1 

22002 

0 

07*2570 

00000 

1 

30001 

0 

04753 

1 

34711 

1 

55039 

0 

4OOOO 

0 

55035 

1 

00006 

1 

07*2400 

25034 

1 

oyooe, 

1 

25034 

1 

O475A 

0 

00006 

1 

25035 

0 

00006 

1 

25035 

0 

07*2610 

00006 

1 

25035 

0 

04753 

1 

31035 

0 

61039 

1 

04762 

0 

34746 

0 

00006 

1 

07*2620 

24000 

1 

04762 

0 

34711 

1 

55034 

0 

00006 

1 

27034 

0 

31034 

1 

04753 

1 

07*2630 

40000 

0 

55034 

0 

00006 

1 

27034 

0 

31039 

1 

04754 

0 

34713 

0 

55034 

0 

07*2640 

00006 

1 

27034 

0 

64745 

0 

O576I 

0 

3IO39 

1 

04761 

0 

00006 

1 

2703a 

0 

07*2650 

04753 

1 

31034 

1 

04754 

0 

44713 

1 

55O35 

1 

OOOOfe 

1 

27035 

1 

31035 

0 

07*2660 

04762 

0 

00006 

1 

27035 

1 

04753 

1 

31035 

0 

04754 

0 

34744 

1 

00006 

1 

07*2670 

26000 

0 

07762 

0 

34725 

0 

55034 

0 

00006 

1 

21034 

0 

04753 

1 

55035 

1 

07*2700 

OOOO4 

1 

21035 

1 

04753 

1 

34746 

0 

55036 

1 

OOOOj, 

1 

21036 

1 

04753 

1 

07*2710 

00006 

1 

21036 

1 

O476I 

0 

40000 

0 

00006 

1 

21035 

1 

04762 

0 

34720 

0 

07*2720 

55037 

0 

347I7 

1 

55040 

0 

00006 

1 

21037 

0 

04762 

0 

34720 

0 

00006 

1 

07*2730 

21040 

0 

04761 

0 

3474O 

0 

55041 

1 

34737 

0 

55042 

1 

00006 

1 

21041 

1 

07*2740 

0^762 

0 

3474O 

0 

00006 

1 

210..2 

1 

O476I 

0 

34746 

0 

54OOI 

1 

00006 

1 

07*2750 

20001 

1 

04753 

1 

02754 

0 

02779 

1 

34716 

0 

00006 

1 

I977O 

1 

40000 

0 

07*2760 

00006 

1 

14770 

1 

34711 

1 

00006 

1 

12766 

0 

04770 

0 

40000 

0 

00006 

1 

07*2770 

12772 

0 

04770 

0 

00002 

0 

O477O 

0 

02776 

0 

03017 

1 

34702 

0 

00006 

1 
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All  valid 

WORDS  are  basic 

INSTRUCTIONS 

ExCEpT  THoSE 

marked  "I"  (iNTERpRETIvE  OpERAToR 

! WORDS)  oR 

"C"  (Constants). 

07*3000 

64770  0 

40000  0 

00006  1 

63O05  1 

04770  0 

34711  1 

00006  1 

63OU 

07*3010 

04770  0 

40000  0 

00006  1 

63015  0 

04770  0 

00002  0 

04770  0 

34725 

07*3020 

00006  1 

74713  1 

60001  0 

55034  0 

00006  1 

74744  0 

60001  0 

55035 

07*3030 

00006  1 

7?713  1 

60001  0 

55036  1 

00006  1 

74744  0 

60001  0 

61036 

07*3040 

61035  0 

61034  1 

04754  0 

34725  0 

00006  1 

7OOOO  0 

60001  0 

55034 

07*3050 

00006  1 

74726  1 

60001  0 

55035  1 

00006  1 

74725  1 

60001  0 

55036 

07*3060 

00006  1 

74726  1 

60001  0 

61036  0 

61035  0 

61034  1 

04754  0 

34725 

07*3070 

00006  1 

747II  0 

60001  0 

04753  1 

34712  1 

00006  1 

74746  1 

60001 

07*3100 

O4753  1 

34745  0 

00006  1 

74711  0 

60001  0 

04753  1 

34746  0 

00006 

07*3110 

74746  1 

60001  0 

04753  1 

34711  1 

00006  1 

74725  1 

60001  0 

04753 

07*3120 

00006  1 

74745  1 

60001  0 

04754  0 

40000  0 

00006  1 

747I6  1 

60001 

07*3130 

04754  0 

40000  0 

00006  1 

74746  1 

6OOOI  0 

04753  1 

34711  1 

55034 

07*3140 

00006  1 

71034  0 

60001  0 

04753  1 

00006  1 

74746  1 

60001  0 

04753 

07*3150 

34746  0 

00006  1 

74711  0 

60001  0 

04753  1 

34746  0 

00006  1 

74746 

07*3160 

04753  1 

33163  0 

04105  1 

CJ  20000  0 

g 

g 

g 

g 

07*3170 

e 

e 

§ 

g 

g 

g 

g 

07*3200 

e 

@ 

e 

g 

g 

g 

g 

07*3210 

@ 

@ 

g 

g 

g 

g 

g 

07*3220 

e 

e 

@ 

g 

g 

g 

g 

g 

07*3230 

e 

e . 

@ 

g 

g 

g 

g 

g 

07*3240 

1 

@ 

@ 

§ 

g 

g 

g 

g 

07*3250 

@ 

@ 

g 

g 

g 

g 

g 

07*3260 

e 

@ 

g 

g 

g 

g 

g 

07*3270 

e 

e 

g 

g 

g 

g 

g 

07*3300 

e 

s 

e 

g 

g 

g 

g 

g 

07*3310 

e 

e 

e 

g 

g 

g 

g 

g 

07*3320 

@ 

@ 

s 

g 

g 

g 

g 

g 

07*3330 

e 

e 

g 

g 

g 

g 

g 

07*3340 

@ 

s 

g 

g 

g 

g 

g 

07*3350 

e 

e 

g 

g 

g 

g 

g 

07*3360 

e 

e 

e 

g 

g 

g 

g 

g 

07*3370 

§ 

s 

g 

g 

g 

g 

g 

1 

0 

1 

0 

0 

1 

0 

0 

1 

1 

0 

0 

1 

1 
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octal  listing  of  paragraph  0 060i  WITH  parity  sit  in  Binary  at  the  right  of  each  WOrD^  "e"  denotes  unused  fixed  memory, 
all  valid  words  are  basic  instructions  ExCEpT  THoSE  MARKED  "1"  ( iNTERpRETIVE  OpERAToR  WORDS)  oR  "C"  (CoNSTAnTS). 


10.2000 

04224 

1 

34747 

1 

55042 

1 

54002 

1 

40000 

0 

55041 

1 

3A711 

1 

54001 

1 

10.2010 

347O6 

1 

00006 

1 

10002 

1 

55O34 

0 

34711 

1 

22000 

1 

00006 

1 

11041 

1 

10.2020 

61034 

1 

04754 

0 

34746 

0 

22000 

1 

40000 

0 

00006 

1 

11042 

1 

55034 

0 

10.2030 

34746 

0 

22000 

1 

00006 

1 

11041 

1 

61034 

1 

04754 

0 

30001 

0 

64706 

1 

10.2040 

04754 

0 

34712 

1 

55042 

1 

40000 

0 

55O4I 

1 

34711 

1 

34707 

0 

54OO1 

1 

10.2050 

34711 

1 

00006 

1 

11042 

1 

55034 

0 

22000 

1 

00006 

1 

11041 

1 

55035 

1 

10.2060 

61034 

1 

OH754 

0 

31035 

0 

22000 

1 

40000 

0 

00006 

1 

11042 

1 

55035 

1 

10.2070 

22000 

1 

00006 

1 

11041 

1 

55034 

0 

61035 

0 

04754 

0 

41034 

0 

547O7 

0 

10.2100 

O4754 

0 

30001 

0 

O4754 

0 

34707 

0 

54OOI 

1 

34746 

0 

00006 

1 

11042 

1 

10.2110 

55034 

0 

22000 

1 

40000 

0 

00006 

1 

IIO4I 

1 

61034 

1 

04754 

0 

447O7 

1 

10.2120 

22000 

1 

00006 

1 

11042 

1 

55O34 

0 

22000 

1 

4OOOO 

0 

00006 

1 

11041 

1 

10.2130 

61034 

1 

04754 

0 

40001 

1 

04753 

1 

34725 

0 

54OOI 

1 

34707 

0 

55042 

1 

10.2140 

0 

0 

0 

0 

0 

55041 

1 

34723 

0 

00006 

1 

11042 

1 

65034 

0 

22000 

1 

0000^ 

1 

10.2150 

11041 

1 

55O35 

1 

61034 

1 

04754 

0 

31035 

0 

22000 

1 

40000 

0 

OOOOj, 

1 

10.2160 

11042 

1 

61034 

1 

O4754 

0 

31035 

0 

22000 

1 

OOOOj, 

1 

IIO4I 

1 

55036 

1 

10.2170 

61035 

0 

04754 

0 

41036 

1 

64725 

0 

O475A 

0 

30001 

0 

64723 

0 

04754 

0 

10.2200 

44725 

1 

54OOI 

1 

34723 

0 

00006 

1 

110^2 

1 

55O34 

0 

56OOI 

0 

0^,761 

0 

10.2210 

34726 

0 

54001 

1 

34723 

0 

00006 

1 

IIO4I 

1 

61034 

1 

04754 

0 

56001 

0 

10.2220 

04761 

0 

34725 

0 

54001 

1 

44723 

1 

00006 

1 

11042 

1 

55035 

1 

61034 

1 

10.2230 

04754 

0 

55OOI 

0 

04762 

0 

34725 

0 

54OOI 

1 

44723 

1 

00006 

1 

11041 

1 

10.2240 

61035 

0 

04754 

0 

56001 

0 

0476? 

0 

31035 

0 

6^744 

1 

69725 

0 

04761 

0 

10.2250 

34711 

1 

54001 

1 

4475O 

0 

55O4I 

1 

40000 

0 

55042 

1 

00006 

1 

11042 

1 

10.2260 

40000 

0 

60001 

0 

04762 

0 

34711 

1 

22000 

1 

00006 

1 

IIO4I 

1 

60001 

0 

10.2270 

04762 

0 

34746 

0 

22000 

1 

40000 

0 

00006 

1 

11042 

1 

40000 

0 

60001 

0 

10 .23OO 

04761 

0 

34746 

0 

22000 

1 

0000(, 

1 

IIO4I 

1 

.0001 

0 

04761 

0 

4OOO1 

1 

10.2310 

61041 

0 

04754 

0 

44711 

0 

55041 

1 

40000 

0 

55042 

1 

54001 

1 

00006 

1 

10.2320 

11042 

1 

64726 

0 

O4754 

0 

22000 

1 

00006 

1 

11041 

1 

64725 

0 

04754 

0 

10.2330 

40000 

0 

22000 

1 

40000 

0 

00006 

1 

11042 

1 

64725 

0 

04754 

0 

40000 

0 

10.2340 

22000 

1 

OyoOfe 

1 

IIO4I 

1 

64726 

0 

04754 

0 

0 

0 

0 

1 

04753 

1 

347I1 

1 

10.2350 

55O42 

1 

54OOI 

1 

40000 

0 

5504! 

1 

00006 

1 

11042 

1 

55O34 

0 

3OOO1 

0 

10.2360 

04753 

1 

40000 

0 

00006 

1 

11041 

1 

61034 

1 

04754 

0 

40000 

0 

56001 

0 

IO.237O 

O4753 

1 

OOOOj, 

1 

11042 

1 

55O35 

1 

61034 

1 

04754 

0 

4OOOO 

0 

56001 

0 
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octal  listing  of  paragraph  * 061,  WITH  PARITY  BIT  IN  BINARy  AT  THE  RIGHT  OF  EACH  wORDS  "e"  DEnOTES  UNUSED  FIxED  MEMORy. 

all  valid  wOrds  are  basic  instructions  except  those  Marked  "i"  unterpretive  operator  words)  or  "c"  (constants). 


10.2A00 

04754 

0 

00006 

1 

11041 

I 

61035 

0 

04754 

0 

34725 

0 

61035 

0 

04754 

0 

I0.2A10 

56001 

0 

07754 

0 

34745 

0 

00006 

1 

01001 

1 

40000 

0 

00006 

1 

OOOOl 

0 

10.2420 

04762 

0 

34726 

0 

64726 

0 

00006 

1 

01002 

1 

40000 

0 

OO0O6 

1 

00002 

0 

10.2430 

55034 

0 

04770 

0 

31034 

1 

64725 

0 

04761 

0 

34711 

1 

54001 

1 

00006 

1 

10.2440 

02001 

1 

04753 

1 

34746 

0 

00006 

1 

02001 

1 

04753 

1 

40000 

0 

54001 

1 

10.2450 

40000 

0 

00006 

1 

02001 

1 

04753 

1 

34746 

0 

00006 

1 

02001 

1 

04754 

0 

10.2460 

34725 

0 

64713 

0 

56002 

0 

34746 

0 

00006 

1 

02002 

1 

55034 

0 

04770 

0 

10.2470 

04761 

0 

41034 

0 

04762 

0 

3471 1 

1 

54OOI 

1 

00006 

1 

03001 

0 

6OOO1 

0 

10*2500 

04753 

1 

34746 

0 

00006 

1 

O3OOI 

0 

60001 

0 

04753 

1 

40000 

0 

54001 

1 

10.2510 

40000 

0 

00006 

1 

03001 

0 

60001 

0 

04753 

1 

34746 

0 

54001 

1 

00006 

1 

10.2520 

03001 

0 

60001 

0 

04754 

0 

34725 

0 

64713 

0 

56002 

0 

34746 

0 

00006 

1 

10.2530 

03002 

0 

55035 

1 

O477O 

0 

30002 

0 

55O34 

0 

04770 

0 

41034 

0 

04762 

0 

10.2540 

41035 

1 

04762 

0 

34711 

1 

54OOI 

1 

00006 

1 

04001 

1 

04753 

1 

3OOO1 

0 

10.2550 

04753 

1 

34746 

0 

00006 

1 

04001 

1 

04754 

0 

30001 

0 

04753 

1 

4OOOO 

0 

10.2560 

54001 

1 

40000 

0 

00006 

1 

04001 

1 

04754 

0 

30001 

0 

04754 

0 

34746 

0 

10.2570 

00006 

1 

07001 

1 

04754 

0 

34726 

0 

64744 

1 

56002 

0 

34725 

0 

64712 

1 

10.2600 

00006 

1 

O4OO2 

1 

55O34 

0 

0260s 

0 

O477O 

0 

3IO34 

1 

04762 

0 

347II 

1 

10.2610 

54001 

1 

00006 

1 

05001 

0 

04753 

1 

30001 

0 

04753 

1 

34746 

0 

00006 

1 

10.2620 

05001 

0 

04754 

0 

30001 

0 

04754 

0 

40000 

0 

5-4001 

1 

40000 

0 

00006 

1 

10.2630 

05001 

0 

04754 

0 

30001 

0 

0475A 

6 

34726 

0 

00006 

1 

05001 

0 

04754 

0 

10.26^0 

3000i 

0 

04754 

0 

3A726 

0 

64744 

1 

56002 

0 

34725 

0 

64712 

1 

00006 

1 

10.2650 

05002 

0 

55035 

1 

12654 

0 

O477O 

0 

56002 

0 

55036 

1 

02660 

0 

04770 

0 

10.2660 

3i036 

0 

04762 

0 

31035 

0 

04762 

0 

34711 

1 

54OOI 

1 

00006 

1 

O6OO1 

0 

10.2670 

04753 

1 

34746 

0 

00006 

1 

060oi 

0 

04754 

0 

30001 

0 

04753 

1 

40000 

0 

10.2700 

34OOI 

1 

4OOOO 

0 

OOOOj, 

1 

OftOOl 

0 

O4754 

0 

34746 

0 

0000^ 

1 

OftOOl 

0 

10.2710 

04753 

1 

30001 

0 

04754 

0 

40000 

0 

54002 

1 

34725 

0 

64713 

0 

00006 

1 

10.2720 

06002 

0 

55034 

0 

O477O 

0 

31034 

1 

04762 

0 

04224 

1 

02732 

0 

Ci  02740 

0 

10.2730 

Ci  02744 

1 

CJ  03033 

1 

34711 

1 

00006 

1 

54711 

1 

52727 

1 

10000 

0 

04770 

0 

10.2t40 

00006 

1 

52730 

1 

60000 

1 

O477O 

0 

00006 

1 

54751 

0 

30001 

0 

40000 

0 

10.2750 

60001 

0 

0‘»761 

0 

00006 

1 

54751 

0 

40001 

1 

40000 

0 

60001 

0 

04762 

0 

10.2760 

34725 

0 

00006 

1 

54751 

0 

7OOOI 

1 

04761 

0 

34725 

0 

00006 

1 

547I2 

1 

10.2710 

60000 

1 

o:76i 

0 

34747 

1 

55036 

1 

34711 

1 

54OOI 

1 

347O6 

1 

00006 

1 
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octal  listing  of  paragraph  § 062,  WITH  PARITY  »IT  iN  BlNARy  AT  THE  RIGHT  OF  EACH  wORDs  "s"  DENOTES  uNySED  FJxED  MEMORy, 
ALL  valid  words  ARe  BASIC  INSTRUCTIONS  EXCE^^T  THOSe  MARKeD  "I"  (INTERPRETIVE  OPERATOR  wORpS)  OR  "C"  (CONSTANTS). 


10*3000 

54665 

0 

10000 

0 

550^‘t 

0 

34746 

0 

56001 

0 

40000 

0 

00006 

1 

54665 

0 

10*3010 

10000 

0 

61034 

1 

04754 

0 

34711 

1 

55034 

0 

40000 

0 

00006 

1 

54663 

0 

10*3020 

20000 

0 

0^762 

0 

32731 

0 

55034 

0 

03026 

0 

04770 

0 

00006 

1 

54663 

0 

10*3030 

22000 

1 

00002 

0 

O477O 

0 

44711 

0 

55034 

0 

00006 

1 

54663 

0 

24000 

1 

10*3040 

31034 

1 

0‘*762 

0 

34713 

0 

55034 

0 

00006 

1 

54663 

0 

26000 

0 

41034 

0 

10*3050 

04762 

0 

34745 

0 

00006 

1 

54712 

1 

01000 

0 

40000 

0 

00006 

1 

547I2 

1 

10*3060 

00000 

1 

0?762 

0 

34712 

1 

54001 

1 

34746 

0 

00006 

1 

54712 

1 

O2OO0 

0 

10*3070 

04761 

0 

34726 

0 

64‘712 

i 

54OOI 

1 

34725 

0 

00006 

1 

54712 

1 

03000 

1 

I0*3l00 

04761 

0 

40001 

1 

04762 

0 

34712 

1 

54002 

1 

34711 

1 

00006 

i 

54713 

0 

10*3110 

04000 

0 

04761 

0 

34737 

0 

54001 

1 

34725 

0 

64745 

0 

00006 

1 

547I2 

1 

10*3120 

05000 

1 

0?762 

0 

30001 

0 

04762 

0 

34745 

0 

54001 

1 

34725 

0 

00006 

1 

10*3130 

54712 

1 

OoOOO 

1 

64725 

0 

04761 

0 

34713 

0 

55034 

0 

34663 

0 

54001 

1 

10*3140 

34712 

1 

00006 

1 

50001 

0 

60000 

1 

04762 

0 

34707 

0 

60000 

1 

54000 

0 

10*3150 

04770 

0 

60000 

1 

54000 

0 

O477O 

0 

60000 

1 

54000 

0 

03160 

0 

04770 

0 

10*3160 

04761 

0 

3:733 

1 

55040 

0 

34726 

0 

54020 

1 

10020 

1 

03172 

0 

04770 

0 

10*3170 

03174 

0 

04770 

0 

25040 

1 

03165 

0 

31040 

‘ ~ 

1 

60020 

0 

10000 

0 

04770 

0 

10*3200 

O477O 

0 

0^770 

0 

34735 

1 

55O4O 

0 

34726 

0 

54O22 

0 

IOO22 

0 

O32I3 

1 

10*3210 

04770 

0 

032J5 

1 

O477O 

0 

25O4O 

1 

03206 

0 

30022 

1 

04761 

0 

31040 

1 

10*3220 

04762 

0 

3:736 

1 

55040 

0 

34726 

b 

54021 

0 

10021 

0 

0477O 

0 

04770 

0 

10*3230 

03?34 

1 

31040 

1 

04762 

0 

03236 

0 

25O4O 

1 

03225 

1 

34735 

1 
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